From 7577149241e584b9cddfb05d9aef9ade10d93554 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Wed, 3 Jan 2007 22:57:20 +0000
Subject: [PATCH] SISR: constants from conversion=finite now produce abstract
 syntax nodes instead of strings.

---
 src/GF/Speech/TransformCFG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs
index 31017c61f..57563af19 100644
--- a/src/GF/Speech/TransformCFG.hs
+++ b/src/GF/Speech/TransformCFG.hs
@@ -72,7 +72,7 @@ cfgToCFRules cfg =
           nameToTerm (Name f prs) = CFObj f (map profileToTerm prs)
           profileToTerm (Unify []) = CFMeta
           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
 removeEmptyCats :: CFRules -> CFRules