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/TransformCFG.hs | |
| parent | af36dcf13d310c6acf256c21a18fa4cb1f7062f1 (diff) | |
bottom-up and top-down filtering do not need fix point iteration.
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 1 |
1 files changed, 0 insertions, 1 deletions
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 |