GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

infForm added to Catalan ; debugging alternative in PGF generation

Browse Source
This commit is contained in:
aarne
2008-08-23 14:26:34 +00:00
parent 90d41b4f4e
commit 3d22963267
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Compile/GrammarToGFCC.hs
View File

@@ -284,8 +284,11 @@ canon2canon abs =
M.ModMod mo -> M.ModMod mo ->
(c, M.ModMod $ M.replaceJudgements mo $ mapTree f2 (M.jments mo)) (c, M.ModMod $ M.replaceJudgements mo $ mapTree f2 (M.jments mo))
_ -> (c,m) _ -> (c,m)
j2j cg (f,j) = case j of j2j cg (f,j) =
CncFun x (Yes tr) z -> (f,CncFun x (Yes ({-trace ("+ " ++ prt f)-} (t2t tr))) z) ---- let debug = trace ("+ " ++ prt f) in
let debug = id in
case j of
CncFun x (Yes tr) z -> (f,CncFun x (Yes (debug (t2t tr))) z)
CncCat (Yes ty) (Yes x) y -> (f,CncCat (Yes (ty2ty ty)) (Yes (t2t x)) y) CncCat (Yes ty) (Yes x) y -> (f,CncCat (Yes (ty2ty ty)) (Yes (t2t x)) y)
_ -> (f,j) _ -> (f,j)
where where