GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

opers in cnc

Browse Source
This commit is contained in:
aarne
2005-12-06 12:39:36 +00:00
parent 6cda8779c4
commit fc0ec0c0cd
7 changed files with 61 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Compile/Optimize.hs
View File

@@ -63,7 +63,7 @@ evalModule oopts ms mo@(name,mod) = case mod of
MGrammar (mod' : _) <- foldM evalOp gr ids
return $ mod'
MTConcrete a -> do
js' <- mapMTree (evalCncInfo oopts gr0 name a) js
js' <- mapMTree (evalCncInfo oopts gr name a) js ---- <- gr0 6/12/2005
return $ (name, ModMod (Module mt st fs me ops js'))
_ -> return $ (name,mod)