From af45f33d51298f5b9ce60b4b8786c326eb4601b1 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 27 Jun 2007 17:46:34 +0000 Subject: bottom-up and top-down filtering do not need fix point iteration. --- src/GF/Speech/CFGToFiniteState.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Speech/CFGToFiniteState.hs') 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 -- cgit v1.2.3