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

2007-03-25 16:11:51 +00:00
parent d35727631c
commit 4a604934e9
2 changed files with 11 additions and 1 deletions
--- a/src/GF/Speech/TransformCFG.hs
+++ b/src/GF/Speech/TransformCFG.hs
@@ -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]]