Renamed removeEmptyCats to bottomUpFilter.

This commit is contained in:
bringert
2007-03-20 21:15:59 +00:00
parent e31ccc4567
commit a473281c65
3 changed files with 4 additions and 4 deletions

View File

@@ -87,8 +87,8 @@ stateGFCC :: StateGrammar -> GFCC
stateGFCC = mkGFCC . mkCanon2gfcc . stateGrammarST
-- | Remove productions which use categories which have no productions
removeEmptyCats :: CFRules -> CFRules
removeEmptyCats = fix removeEmptyCats'
bottomUpFilter :: CFRules -> CFRules
bottomUpFilter = fix removeEmptyCats'
where
removeEmptyCats' :: CFRules -> CFRules
removeEmptyCats' rs = k'