From fe045070cf4333cee0e634db5c877493d1b16030 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 14 Sep 2004 17:05:46 +0000
Subject: gfcm header

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

(limited to 'src/GF/Compile/GrammarToCanon.hs')

diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs
index e0db76f90..7b7620f3b 100644
--- a/src/GF/Compile/GrammarToCanon.hs
+++ b/src/GF/Compile/GrammarToCanon.hs
@@ -80,8 +80,8 @@ redInfo am (c,info) = errIn ("translating definition of" +++ prt c) $ do
       returns c' $ C.AbsCat cont fs
     AbsFun (Yes typ) pdf -> do
       let df = case pdf of
-                 Yes t -> t
-                 _ -> EData --- data vs. primitive
+                 Yes t -> t  -- definition or "data"
+                 _ -> Eqs [] -- primitive notion
       returns c' $ C.AbsFun typ df
     AbsTrans t -> 
       returns c' $ C.AbsTrans t
-- 
cgit v1.2.3