diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-08 21:34:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-08 21:34:44 +0000 |
| commit | f2df8bb14459507c6b24196b232b78dde4d45d7d (patch) | |
| tree | 14dbe1b125439f96ba2d7a18c9e679e3507fb7af /src | |
| parent | fc457ce795a5cddc30e4d285b3d5502aa756cd0f (diff) | |
restricted inheritance in gfcc abstract fixed
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Devel/GrammarToGFCC.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs index 9c052b35c..d5482fde9 100644 --- a/src/GF/Devel/GrammarToGFCC.hs +++ b/src/GF/Devel/GrammarToGFCC.hs @@ -199,10 +199,7 @@ reorder abs cg = M.MGrammar $ where mos = M.allModMod cg adefs = sorted2tree $ sortIds $ - predefADefs ++ - [finfo | - (i,mo) <- M.allModMod cg, M.isModAbs mo, - finfo <- tree2list (M.jments mo)] + predefADefs ++ Look.allOrigInfos cg abs predefADefs = [(IC c, AbsCat (Yes []) Nope) | c <- ["Float","Int","String"]] aflags = nubFlags $ |