diff options
| author | krasimir <krasimir@chalmers.se> | 2008-10-15 09:26:01 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-10-15 09:26:01 +0000 |
| commit | f438fbb294b8130f4f74c0ea17fb93030e4a684c (patch) | |
| tree | 27a72a828eebcb0b2989bda58cf0bd4be4cfd633 | |
| parent | dc2d0f0df4e7ae162c48c8879faa88392404c2e1 (diff) | |
rename emptyFRulesEnv to emptyGrammarEnv
| -rw-r--r-- | src/GF/Compile/GeneratePMCFG.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Compile/GeneratePMCFG.hs b/src/GF/Compile/GeneratePMCFG.hs index e05ef5afa..b8b4d91d0 100644 --- a/src/GF/Compile/GeneratePMCFG.hs +++ b/src/GF/Compile/GeneratePMCFG.hs @@ -99,7 +99,7 @@ fixHoasFuns pinfo = pinfo{functions=mkArray [FFun (fixName n) prof lins | FFun n fixName n = n convert :: [(CId,(Type,Expr))] -> TermMap -> TermMap -> ParserInfo -convert abs_defs cnc_defs cat_defs = getParserInfo (List.foldl' (convertRule cnc_defs) (emptyFRulesEnv cnc_defs cat_defs) srules) +convert abs_defs cnc_defs cat_defs = getParserInfo (List.foldl' (convertRule cnc_defs) (emptyGrammarEnv cnc_defs cat_defs) srules) where srules = [ (XRule id args res (map findLinType args) (findLinType res) term) | @@ -261,7 +261,7 @@ type SeqSet = Map.Map FSeq SeqId type FunSet = Map.Map FFun FunId type CoerceSet= Map.Map [FCat] FCat -emptyFRulesEnv cnc_defs lincats = +emptyGrammarEnv cnc_defs lincats = let (last_id,catSet) = Map.mapAccumWithKey computeCatRange 0 lincats in GrammarEnv last_id catSet Map.empty Map.empty Map.empty IntMap.empty where |