restricted inheritance in gfcc abstract fixed

2007-11-08 21:34:44 +00:00
parent fc457ce795
commit f2df8bb144
1 changed files with 1 additions and 4 deletions
--- 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 $