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

type computed in table T [...]

Browse Source
This commit is contained in:
aarne
2008-05-29 08:23:23 +00:00
parent ea17e2678b
commit 10264a1d13
2 changed files with 3 additions and 3 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

@@ -386,10 +386,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