adjusting parameter types in Romance and fixing some compilation bugs

2026-04-09 13:09:33 -06:00 · 2007-10-14 14:08:41 +00:00
parent 111643eba8
commit eb145f5fcf
1 changed files with 1 additions and 0 deletions
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -235,6 +235,7 @@ computeTermOpt rec gr = comp where
 ----              foldr1 C (map K (str2strings (glueStr v (str a)))) | v <- x']
           ,return $ Glue x y
           ]
+         (C u v,_) -> comp g $ C u (Glue v y)

         _ -> do
           mapM_ checkNoArgVars [x,y]