diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-21 07:37:47 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-21 07:37:47 +0000 |
| commit | 58d34eca14d02e6bb388521954938824bb0c8079 (patch) | |
| tree | 10da358a774fffa902db48edb9638c9e8d528244 /src/GF/Devel/GrammarToGFCC.hs | |
| parent | 58a87653cc5f03f8184faa81fa24c2c5eff0429a (diff) | |
gfc --make now works
Diffstat (limited to 'src/GF/Devel/GrammarToGFCC.hs')
| -rw-r--r-- | src/GF/Devel/GrammarToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs index a6dabae1a..cbe8af891 100644 --- a/src/GF/Devel/GrammarToGFCC.hs +++ b/src/GF/Devel/GrammarToGFCC.hs @@ -38,7 +38,7 @@ canon2gfcc cgr@(M.MGrammar ((a,M.ModMod abm):cms)) = cs = map (i2i . fst) cms adefs = [C.Fun f' (mkType ty) (C.Tr (C.AC f') []) | (f,AbsFun (Yes ty) _) <- tree2list (M.jments abm), let f' = i2i f] - cncs = [C.Cnc (i2i a) (concr abm)] + cncs = [C.Cnc (i2i lang) (concr m) | (lang,M.ModMod m) <- cms] concr mo = cats mo ++ lindefs mo ++ optConcrete [C.Lin (i2i f) (mkTerm tr) | |