forced checking def definitions; accept pgf with no concretes

This commit is contained in:
aarne
2008-10-05 15:21:08 +00:00
parent 16a1a48874
commit be9ff0cbca
3 changed files with 7 additions and 8 deletions

View File

@@ -139,7 +139,8 @@ checkAbsInfo st m mo (c,info) = do
md' <- case md of
Yes d -> do
let d' = elimTables d
mkCheckWarn "definition of function" $ checkEquation st (m,c) d'
---- mkCheckWarn "definition of function" $ checkEquation st (m,c) d'
mkCheck "definition of function" $ checkEquation st (m,c) d'
return $ Yes d'
_ -> return md
return $ (c,AbsFun (Yes typ) md')