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

sync with laptop version, irrelevant changes

Browse Source
This commit is contained in:
aarne
2008-05-29 22:32:58 +00:00
parent 35009a2911
commit 66c0467201
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src-3.0/GF/Compile/Compute.hs
View File

@@ -330,10 +330,10 @@ computeTermOpt rec gr = comput True where
---- return $ V ty (map snd cs') ---- return $ V ty (map snd cs')
return $ T i cs' return $ T i cs'
V ty cs -> do V ty cs -> do
-- if there are no variables, don't even go inside ty' <- comp g ty
cs' <- if (null g) then return cs else mapM (comp g) cs -- if there are no variables, don't even go inside
---- return $ V ty (map snd cs') cs' <- if (null g) then return cs else mapM (comp g) cs
return $ V ty cs' return $ V ty' cs'
T i cs -> do T i cs -> do
pty0 <- getTableType i pty0 <- getTableType i