msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

adjusting parameter types in Romance and fixing some compilation bugs

Browse Source
This commit is contained in:
aarne
2007-10-14 14:08:41 +00:00
parent 111643eba8
commit eb145f5fcf
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Grammar/Compute.hs
View File

@@ -235,6 +235,7 @@ computeTermOpt rec gr = comp where
---- foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x'] ---- foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x']
,return $ Glue x y ,return $ Glue x y
] ]
(C u v,_) -> comp g $ C u (Glue v y)
_ -> do _ -> do
mapM_ checkNoArgVars [x,y] mapM_ checkNoArgVars [x,y]