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/TransformCFG.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'src/GF/Speech/TransformCFG.hs') diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index eec80bad8..4e38216d9 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -109,7 +109,6 @@ bottomUpFilter gr = fix grow Map.empty okSym g = symbol (`elem` allCats g) (const True) -- | Removes categories which are not reachable from the start category. --- Only does one pass through the grammar. topDownFilter :: Cat_ -> CFRules -> CFRules topDownFilter start rules = filterCFRulesCats (isRelatedTo uses start) rules where -- cgit v1.2.3