msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

last-minute bug fixes

Browse Source
This commit is contained in:
aarne
2004-06-24 14:06:09 +00:00
parent d3db78ad31
commit 3b39607bba
20 changed files with 536 additions and 404 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Source/PrintGF.hs
View File

@@ -210,6 +210,9 @@ instance Print TopDef where
DefPrintOld printdefs -> prPrec i 0 (concat [["printname"] , prt 0 printdefs])
DefLintype defs -> prPrec i 0 (concat [["lintype"] , prt 0 defs])
DefPattern defs -> prPrec i 0 (concat [["pattern"] , prt 0 defs])
DefPackage id topdefs -> prPrec i 0 (concat [["package"] , prt 0 id , ["="] , ["{"] , prt 0 topdefs , ["}"] , [";"]])
DefVars defs -> prPrec i 0 (concat [["var"] , prt 0 defs])
DefTokenizer id -> prPrec i 0 (concat [["tokenizer"] , prt 0 id , [";"]])
prtList es = case es of
[] -> (concat [])