new Finnish paradigms integrated

This commit is contained in:
aarne
2008-03-07 14:47:10 +00:00
parent 27508654c0
commit 5f731b3ad6

View File

@@ -103,7 +103,8 @@ renameIdentTerm env@(act,imps) t =
[] -> alt c ("constant not found:" +++ prt c)
fs -> case nub [f c | f <- fs] of
[tr] -> return tr
ts -> return $ Strs $ (cnIC "#conflict") : reverse ts
ts@(t:_) -> trace ("WARNING: conflict" +++ unwords (map prt ts)) (return t)
---- ts -> return $ Strs $ (cnIC "#conflict") : reverse ts
-- a warning will be generated in CheckGrammar, and the head returned
-- in next V:
-- Bad $ "conflicting imports:" +++ unwords (map prt ts)