lincat typecheck and abstract-interface extension fixed

This commit is contained in:
aarne
2006-05-30 12:19:19 +00:00
parent 10f9753d9e
commit 516abb5d58
3 changed files with 16 additions and 8 deletions

View File

@@ -214,6 +214,7 @@ checkCncInfo gr m (a,abs) (c,info) = do
-- cat for cf, typ for pe
CncCat (Yes typ) mdef mpr -> chIn "linearization type of" $ do
checkErr $ lookupCatContextSrc gr a c
typ' <- checkIfLinType gr typ
mdef' <- case mdef of
Yes def -> do