Added srg0006: A grammar with a cycle caused by an empty production.

This commit is contained in:
bringert committed 2007-03-25 16:11:51 +00:00
1 parent 4331167011
commit 85072fb6b2
2 files changed
+11 -1

No files matched your search

+1 -1
View File
@@ -88,7 +88,7 @@ stateGFCC = mkGFCC . mkCanon2gfcc . stateGrammarST
-- * Grammar filtering
-- | Removes all directly cyclic productions.
-- | Removes all directly and indirectly cyclic productions.
removeCycles :: CFRules -> CFRules
removeCycles = groupProds . removeCycles_ . ungroupProds
where removeCycles_ rs = [r | r@(CFRule c rhs _) <- rs, rhs /= [Cat c]]