bugfix: the optimizer should not filter out rules that refer to lexical categories

This commit is contained in:
krasimir
2009-06-18 17:31:49 +00:00
parent ea9aed6ff8
commit 5f0a68c1a4
2 changed files with 3 additions and 5 deletions

View File

@@ -114,7 +114,3 @@ pgfToCFG pgf lang = mkCFG (prCId (lookStartCat pgf)) extCats (startRules ++ conc
fruleToCFRule (c,FCoerce c') =
[CFRule (fcatToCat c l) [NonTerminal (fcatToCat c' l)] (CFRes 0)
| l <- [0..catLinArity c-1]]
isLiteralFCat :: FCat -> Bool
isLiteralFCat = (`elem` [fcatString, fcatInt, fcatFloat, fcatVar])