diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-24 07:18:34 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-24 07:18:34 +0000 |
| commit | 1eb1d7e055ce91e4e972079c906deb24ebbf2fbd (patch) | |
| tree | 8778420562b40cbfde76ed172b7f5c48a5e2213a | |
| parent | 53bfa43a5820e0ac6cceb01b57776ae01b3b92f1 (diff) | |
temporary work-around of gfcc generation bug in resource-1.4 grammars
| -rw-r--r-- | src-3.0/GF/Compile/GrammarToGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GF/Compile/GrammarToGFCC.hs b/src-3.0/GF/Compile/GrammarToGFCC.hs index 541614eff..928180973 100644 --- a/src-3.0/GF/Compile/GrammarToGFCC.hs +++ b/src-3.0/GF/Compile/GrammarToGFCC.hs @@ -271,7 +271,7 @@ canon2canon abs = (c, M.ModMod $ M.replaceJudgements mo $ mapTree f2 js) _ -> (c,m) j2j cg (f,j) = case j of - CncFun x (Yes tr) z -> (f,CncFun x (Yes (trace ("\n" ++ prt f) (t2t tr))) z) + CncFun x (Yes tr) z -> (f,CncFun x (Yes (trace ("+ " ++ prt f) (t2t tr))) z) CncCat (Yes ty) (Yes x) y -> (f,CncCat (Yes (ty2ty ty)) (Yes (t2t x)) y) _ -> (f,j) where @@ -493,7 +493,7 @@ term2term cgr env@(labels,untyps,typs) tr = case tr of (FV ts,_) -> ts _ -> [tr] valNumFV ts = case ts of - [tr] -> error (prt tr) ----- prtTrace tr $ K "66667" + [tr] -> error ("valNum" +++ prt tr) ----- prtTrace tr $ K "66667" _ -> FV $ map valNum ts mkCurry trm = case trm of |