From e1617bbb8e7d7dfa8ba4ba50cf1c321610f57ace Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Sat, 25 Sep 2004 21:49:21 +0000
Subject: version 2 of doc

---
 examples/gfcc/ImperC.gf | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'examples/gfcc/ImperC.gf')

diff --git a/examples/gfcc/ImperC.gf b/examples/gfcc/ImperC.gf
index d4e690635..cce553999 100644
--- a/examples/gfcc/ImperC.gf
+++ b/examples/gfcc/ImperC.gf
@@ -43,6 +43,7 @@ concrete ImperC of Imper = open ResImper in {
     ESub _     = infixL 2 "-" ;
     ELt _      = infixN 1 "<" ;
 
+    EAppNil val f = constant (f.s ++ paren []) ;
     EApp args val f exps = constant (f.s ++ paren exps.s) ;
 
     TNum t  = t ;
@@ -50,8 +51,6 @@ concrete ImperC of Imper = open ResImper in {
     TFloat  = ss "float" ;
     NilTyp  = ss [] ;
     ConsTyp = cc2 ;
-
-    NilExp = ss [] ;
     OneExp _ e = e ;
     ConsExp _ _ e es = ss (e.s ++ "," ++ es.s) ;
 }
-- 
cgit v1.2.3