From 2c48a10236bb19d8b04382cb1e957ce18b9d29fd Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Fri, 17 Jun 2005 13:15:16 +0000
Subject: Changed name of Con constructor in GFC.cf to avoid errors on Windows
 when generating Java code with BNFC for the GFC grammar. CON is a reserved
 filename on Windows. Con was changed to Par, and all the code using was
 changed too.

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

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs
index e69113a21..9d93589d6 100644
--- a/src/GF/Compile/GrammarToCanon.hs
+++ b/src/GF/Compile/GrammarToCanon.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/05/30 21:08:14 $ 
--- > CVS $Author: aarne $
--- > CVS $Revision: 1.20 $
+-- > CVS $Date: 2005/06/17 14:15:18 $ 
+-- > CVS $Author: bringert $
+-- > CVS $Revision: 1.21 $
 --
 -- Code generator from optimized GF source code to GFC.
 -----------------------------------------------------------------------------
@@ -197,10 +197,10 @@ redCTerm t = case t of
     (_,c,xx) <- termForm t
     xx' <- mapM redCTerm xx
     case c of
-      QC p c -> liftM2 G.Con (redQIdent (p,c)) (return xx')
+      QC p c -> liftM2 G.Par (redQIdent (p,c)) (return xx')
       _ -> prtBad "expected constructor head instead of" c
   Q p c  -> liftM G.I (redQIdent (p,c))
-  QC p c -> liftM2 G.Con (redQIdent (p,c)) (return [])
+  QC p c -> liftM2 G.Par (redQIdent (p,c)) (return [])
   R rs     -> do
     let (ls,tts) = unzip rs
         ls' = map redLabel ls
-- 
cgit v1.2.3