From f2df8bb14459507c6b24196b232b78dde4d45d7d Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 8 Nov 2007 21:34:44 +0000
Subject: [PATCH] restricted inheritance in gfcc abstract fixed

---
 src/GF/Devel/GrammarToGFCC.hs | 5 +----
 1 file changed, 1 insertion(+), 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 $