GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

rename emptyFRulesEnv to emptyGrammarEnv

Browse Source
This commit is contained in:
krasimir
2008-10-15 09:26:01 +00:00
parent dc2d0f0df4
commit f438fbb294
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Compile/GeneratePMCFG.hs
View File

@@ -99,7 +99,7 @@ fixHoasFuns pinfo = pinfo{functions=mkArray [FFun (fixName n) prof lins | FFun n
fixName n = n fixName n = n
convert :: [(CId,(Type,Expr))] -> TermMap -> TermMap -> ParserInfo 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 where
srules = [ srules = [
(XRule id args res (map findLinType args) (findLinType res) term) | (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 FunSet = Map.Map FFun FunId
type CoerceSet= Map.Map [FCat] FCat type CoerceSet= Map.Map [FCat] FCat
emptyFRulesEnv cnc_defs lincats = emptyGrammarEnv cnc_defs lincats =
let (last_id,catSet) = Map.mapAccumWithKey computeCatRange 0 lincats let (last_id,catSet) = Map.mapAccumWithKey computeCatRange 0 lincats
in GrammarEnv last_id catSet Map.empty Map.empty Map.empty IntMap.empty in GrammarEnv last_id catSet Map.empty Map.empty Map.empty IntMap.empty
where where