fixed the mysterious "file..gfc" error

This commit is contained in:
aarne
2007-06-18 21:21:13 +00:00
parent 050ef5576b
commit f5b929acfc
11 changed files with 336 additions and 261 deletions

View File

@@ -103,8 +103,9 @@ renameIdentTerm env@(act,imps) t =
[] -> alt c ("constant not found:" +++ prt c)
fs -> case nub [f c | f <- fs] of
[tr] -> return tr
ts@(tr:_) ->
Bad $ "conflicting imports:" +++ unwords (map prt ts)
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)
--- | would it make sense to optimize this by inlining?