diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-14 08:51:13 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-14 08:51:13 +0000 |
| commit | c1c8257e82ace9860fa3880ae820b2b41b6403e0 (patch) | |
| tree | 05c296aa403075b1ca45f5df078793cc169cd1c2 /src-3.0/GF/Compile | |
| parent | 4fd51838637b696892f4bde48b6741d84186621e (diff) | |
added translation and mophology quizzes
Diffstat (limited to 'src-3.0/GF/Compile')
| -rw-r--r-- | src-3.0/GF/Compile/GrammarToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Compile/GrammarToGFCC.hs b/src-3.0/GF/Compile/GrammarToGFCC.hs index a27b4e761..010393bfd 100644 --- a/src-3.0/GF/Compile/GrammarToGFCC.hs +++ b/src-3.0/GF/Compile/GrammarToGFCC.hs @@ -279,7 +279,7 @@ canon2canon abs = (c, M.ModMod $ M.replaceJudgements mo $ mapTree f2 (M.jments mo)) _ -> (c,m) j2j cg (f,j) = case j of - CncFun x (Yes tr) z -> (f,CncFun x (Yes (trace ("+ " ++ 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 |