GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-28 04:08:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

new Finnish paradigms integrated

Browse Source
This commit is contained in:
aarne
2008-03-07 14:47:10 +00:00
parent 27508654c0
commit 5f731b3ad6
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Compile/Rename.hs
View File

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