diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-14 14:08:41 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-14 14:08:41 +0000 |
| commit | eb145f5fcff6ca207dfbb4c4c90297f55451f97b (patch) | |
| tree | 09dc75d77ab74446a3a096cc10470b03606188f8 /src | |
| parent | 111643eba854bc9d67ab6d44df309b67ef4806de (diff) | |
adjusting parameter types in Romance and fixing some compilation bugs
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Grammar/Compute.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs index 5970d96ef..043c2bd7e 100644 --- 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] |