diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-13 14:47:37 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-13 14:47:37 +0000 |
| commit | dbfef31538e1bb96cdfe8f17884559fdf6ad680f (patch) | |
| tree | 52d8364e2f11498c25d1a4bf916aec95fdd519ef /src/GF/Speech/SRG.hs | |
| parent | c5d0416996eb05fd820c569a177abaf09268ed15 (diff) | |
Removed cycles when building SRGs, to avoid getting left-recursive grammars.
Diffstat (limited to 'src/GF/Speech/SRG.hs')
| -rw-r--r-- | src/GF/Speech/SRG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs index 8080b941f..03204d888 100644 --- a/src/GF/Speech/SRG.hs +++ b/src/GF/Speech/SRG.hs @@ -74,7 +74,7 @@ makeSimpleSRG :: Ident -- ^ Grammar name -> CGrammar -- ^ A context-free grammar -> SRG makeSimpleSRG - = makeSRG_ (removeLeftRecursion . removeIdenticalRules . removeEmptyCats) + = makeSRG_ (removeLeftRecursion . removeIdenticalRules . removeEmptyCats . removeCycles) -- | Create a SRG preserving the names, profiles and probabilities of the -- input grammar. The returned grammar may be left-recursive. |