From 3f9b4e7855cf4594708a9fbad194c89540d2cf1e Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 31 Mar 2004 12:30:34 +0000
Subject: Added support for cf and ebnf formats

---
 src/GF/CF/CFtoGrammar.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GF/CF/CFtoGrammar.hs')

diff --git a/src/GF/CF/CFtoGrammar.hs b/src/GF/CF/CFtoGrammar.hs
index 440c4f7c3..b052ee88e 100644
--- a/src/GF/CF/CFtoGrammar.hs
+++ b/src/GF/CF/CFtoGrammar.hs
@@ -40,9 +40,9 @@ cf2rule (fun, (cat, items)) = (def,ldef) where
  ldef  = (f, CncFun 
                Nothing 
                (yes (mkAbs (map fst args) 
-                      (mkRecord linLabel [foldconcat (map mkIt args0)])))
+                      (mkRecord (const theLinLabel) [foldconcat (map mkIt args0)])))
                nope)
- mkIt (v, CFNonterm _) = P (Vr v) (linLabel 0)
+ mkIt (v, CFNonterm _) = P (Vr v) theLinLabel
  mkIt (_, CFTerm (RegAlts [a])) = K a
  mkIt _ = K "" --- regexp not recognized in input CF ; use EBNF for this
  foldconcat [] = K ""
-- 
cgit v1.2.3