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/Source/GF.cf | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/GF/Source/GF.cf')

diff --git a/src/GF/Source/GF.cf b/src/GF/Source/GF.cf
index 80da5b9d1..d6170a6e7 100644
--- a/src/GF/Source/GF.cf
+++ b/src/GF/Source/GF.cf
@@ -45,7 +45,7 @@ MUnion. ModBody ::= "union" [Included] ;
 
 separator TopDef "" ;
 
-Ext.   Extend ::= Ident "**" ;
+Ext.   Extend ::= [Ident] "**" ;
 NoExt. Extend ::= ;
 
 separator Open "," ;
@@ -79,6 +79,7 @@ DFull.  Def ::= [Ident] ":" Exp "=" Exp ;
 
 DefCat.    TopDef ::= "cat" [CatDef] ;
 DefFun.    TopDef ::= "fun" [FunDef] ;
+DefFunData.TopDef ::= "data" [FunDef] ;
 DefDef.    TopDef ::= "def" [Def] ;
 DefData.   TopDef ::= "data" [DataDef] ;
 
@@ -145,6 +146,7 @@ EString.   Exp4 ::= String ;
 EInt.      Exp4 ::= Integer ;
 EMeta.     Exp4 ::= "?" ;
 EEmpty.    Exp4 ::= "[" "]" ;
+EData.     Exp4 ::= "data" ;
 EStrings.  Exp4 ::= "[" String "]" ;
 ERecord.   Exp4 ::= "{" [LocDef] "}" ; -- !
 ETuple.    Exp4 ::= "<" [TupleComp] ">" ;  --- needed for separator ","
-- 
cgit v1.2.3