started adding GF back optimization (Factorize)

This commit is contained in:
aarne
2007-12-07 13:00:02 +00:00
parent b6484890b1
commit a935576674
3 changed files with 267 additions and 4 deletions
+1 -1
View File
@@ -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