diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-06-27 17:46:34 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-06-27 17:46:34 +0000 |
| commit | af45f33d51298f5b9ce60b4b8786c326eb4601b1 (patch) | |
| tree | e553b363d6632772fbaa0da7bc897981f9a6b298 /src/GF/Speech/CFGToFiniteState.hs | |
| parent | af36dcf13d310c6acf256c21a18fa4cb1f7062f1 (diff) | |
bottom-up and top-down filtering do not need fix point iteration.
Diffstat (limited to 'src/GF/Speech/CFGToFiniteState.hs')
| -rw-r--r-- | src/GF/Speech/CFGToFiniteState.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/CFGToFiniteState.hs b/src/GF/Speech/CFGToFiniteState.hs index df4346d20..7e6f80ba1 100644 --- a/src/GF/Speech/CFGToFiniteState.hs +++ b/src/GF/Speech/CFGToFiniteState.hs @@ -64,7 +64,7 @@ cfgToFA opts s = minimize $ compileAutomaton start $ makeSimpleRegular opts s makeSimpleRegular :: Options -> StateGrammar -> CFRules makeSimpleRegular opts s = makeRegular $ preprocess $ cfgToCFRules s where start = getStartCatCF opts s - preprocess = fix (topDownFilter start . bottomUpFilter) + preprocess = topDownFilter start . bottomUpFilter . removeCycles |