forced checking def definitions; accept pgf with no concretes

This commit is contained in:
aarne
2008-10-05 15:21:08 +00:00
parent 24207d40e9
commit 21aa3cfa17
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')