started adding GF back optimization (Factorize)

2007-12-07 13:00:02 +00:00
parent 36a0f92bdb
commit 8437e6d295
3 changed files with 267 additions and 4 deletions
--- a/src/GF/Devel/Compile/CheckGrammar.hs
+++ b/src/GF/Devel/Compile/CheckGrammar.hs
@@ -189,7 +189,7 @@ checkCompleteGrammar abs cnc = do
 where
   checkOne js i@(c, Left ju) = case jform ju of
     JFun -> case Map.lookup c js of
-       Just (Left j) | jform ju == JLin -> return js
+       Just (Left j) | jform j == JLin -> return js
       _ -> do
         checkWarn $ "WARNING: no linearization of" +++ prt c
         return js