diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-02-01 22:01:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-02-01 22:01:10 +0000 |
| commit | 48895581378353743e51bae6cbbe60bf31b7b8e3 (patch) | |
| tree | 91ffacfa4b95a59e216d32cf69673256b9370415 /src/GF/Devel/Compile/GFtoGFCC.hs | |
| parent | 3addf256bcfaaa7748b0159a3dd6f6ce8fcd8b7c (diff) | |
added some new pattern forms, incl. pattern macros, to testgf3
Diffstat (limited to 'src/GF/Devel/Compile/GFtoGFCC.hs')
| -rw-r--r-- | src/GF/Devel/Compile/GFtoGFCC.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Devel/Compile/GFtoGFCC.hs b/src/GF/Devel/Compile/GFtoGFCC.hs index 2d11e960f..81f33e11a 100644 --- a/src/GF/Devel/Compile/GFtoGFCC.hs +++ b/src/GF/Devel/Compile/GFtoGFCC.hs @@ -78,7 +78,7 @@ canon2gfcc opts pars cgr = -- concretes cncs = Map.fromList [mkConcr lang (i2i lang) mo | (lang,mo) <- cms] mkConcr lang0 lang mo = - (lang,D.Concr flags lins opers lincats lindefs printnames params) + (lang,D.Concr flags lins opers lincats lindefs printnames params fcfg) where js = listJudgements mo flags = Map.fromList [(CId f,x) | (IC f,x) <- Map.toList (M.mflags mo)] @@ -96,6 +96,7 @@ canon2gfcc opts pars cgr = (c,ju) <- js, elem (jform ju) [JLincat,JLin]] params = Map.fromAscList [(i2i c, pars lang0 c) | (c,ju) <- js, jform ju == JLincat] ---- c ?? + fcfg = Nothing i2i :: Ident -> CId i2i = CId . prIdent |