GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 10:22: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 db1d804e7e
commit c8898f51bf
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource-1.4/french/MorphoFre.gf
View File

@@ -11,7 +11,7 @@
resource MorphoFre = CommonRomance, ResFre ** resource MorphoFre = CommonRomance, ResFre **
open PhonoFre, Prelude, Predef in { open PhonoFre, Prelude, Predef in {
flags optimize=all ; flags optimize=noexpand ;
--2 Front vowels --2 Front vowels
-- --

4
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
ty' <- comp g ty
-- if there are no variables, don't even go inside -- if there are no variables, don't even go inside
cs' <- if (null g) then return cs else mapM (comp g) cs cs' <- if (null g) then return cs else mapM (comp g) cs
---- return $ V ty (map snd cs') return $ V ty' cs'
return $ V ty cs'
T i cs -> do T i cs -> do
pty0 <- getTableType i pty0 <- getTableType i