GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

SISR: constants from conversion=finite now produce abstract syntax nodes instead of strings.

Browse Source
This commit is contained in:
bringert
2007-01-03 22:57:20 +00:00
parent 3e7b707c69
commit 613c1527e9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/TransformCFG.hs
View File

@@ -72,7 +72,7 @@ cfgToCFRules cfg =
nameToTerm (Name f prs) = CFObj f (map profileToTerm prs) nameToTerm (Name f prs) = CFObj f (map profileToTerm prs)
profileToTerm (Unify []) = CFMeta profileToTerm (Unify []) = CFMeta
profileToTerm (Unify xs) = CFRes (last xs) -- FIXME: unify profileToTerm (Unify xs) = CFRes (last xs) -- FIXME: unify
profileToTerm (Constant f) = CFConst (maybe "?" prIdent (forestName f)) profileToTerm (Constant f) = maybe CFMeta (\x -> CFObj x []) (forestName f)
-- | Remove productions which use categories which have no productions -- | Remove productions which use categories which have no productions
removeEmptyCats :: CFRules -> CFRules removeEmptyCats :: CFRules -> CFRules