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

bugfix: the identifiers in the output of l -table should not be qualified

Browse Source
This commit is contained in:
krasimir
2009-09-25 08:53:27 +00:00
parent b4f8f39f76
commit dd1014d009
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Compile/GrammarToGFCC.hs
View File

@@ -230,7 +230,7 @@ mkParamLincat sgr lang cat = errVal (C.R [C.S []]) $ do
return $ C.S [p',v'] return $ C.S [p',v']
Sort s | s == cStr -> return $ C.S [] Sort s | s == cStr -> return $ C.S []
_ -> return $ _ -> return $
C.FV $ map (kks . filter showable . render . ppTerm Qualified 0) $ C.FV $ map (kks . filter showable . render . ppTerm Unqualified 0) $
errVal [] $ Look.allParamValues sgr typ errVal [] $ Look.allParamValues sgr typ
showable c = not (isSpace c) ---- || (c == ' ') -- to eliminate \n in records showable c = not (isSpace c) ---- || (c == ' ') -- to eliminate \n in records
kks = C.K . C.KS kks = C.K . C.KS