From 2262c105abbdf908e111b2ad551ed35b3c34c184 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 17 Dec 2010 09:11:04 +0000 Subject: [PATCH] bugfix: GeneratePMCFG should initialize the lexicon to empty --- src/compiler/GF/Compile/GeneratePMCFG.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs index afc409654..a3406dd0e 100644 --- a/src/compiler/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/GF/Compile/GeneratePMCFG.hs @@ -568,6 +568,7 @@ getConcr flags printnames (GrammarEnv last_id catSet seqSet funSet lindefSet crc , productions = IntMap.union prodSet coercions , pproductions = IntMap.empty , lproductions = Map.empty + , lexicon = IntMap.empty , cnccats = Map.fromList [(i2i cat,PGF.Data.CncCat start end (mkArray (map (renderStyle style{mode=OneLineMode} . ppPath) (getStrPaths schema)))) | (cat,(start,end,schema)) <- Map.toList catSet] , totalCats = last_id+1