Do top-down and bottom-up filtering together to a fixed point.

2007-03-20 21:59:36 +00:00
parent c2dd74f33e
commit 4d369e096f
2 changed files with 5 additions and 7 deletions
--- a/src/GF/Speech/SRG.hs
+++ b/src/GF/Speech/SRG.hs
@@ -96,8 +96,7 @@ makeSimpleSRG opt s =
    l = fmap (replace '_' '-') $ getOptVal opts speechLanguage
    (cats,cfgRules) = unzip $ preprocess $ cfgToCFRules s
    preprocess = removeLeftRecursion origStart 
-                 . bottomUpFilter 
-                 . topDownFilter origStart
+                 . fix (topDownFilter origStart . bottomUpFilter)
                 . removeIdenticalRules 
                 . removeCycles
    names = mkCatNames name cats