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/ImperJVM.gf | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/examples/gfcc/ImperJVM.gf b/examples/gfcc/ImperJVM.gf
index 007f8cd6f..5b2009e32 100644
--- a/examples/gfcc/ImperJVM.gf
+++ b/examples/gfcc/ImperJVM.gf
@@ -75,6 +75,9 @@ flags lexer=codevars ; unlexer=code ; startcat=Stm ;
     ESub       = binopt "_sub" ;
     EMul       = binopt "_mul" ;
     ELt t      = binop ("invokestatic" ++ t.s ++ "runtime/lt" ++ paren (t.s ++ t.s) ++ "i") ;
+    EAppNil val f = instr (
+      "invokestatic" ++ f.s ++ paren [] ++ val.s
+      ) ;
     EApp args val f exps = instr (
       exps.s ++
       "invokestatic" ++ f.s ++ paren args.s ++ val.s
@@ -83,11 +86,8 @@ flags lexer=codevars ; unlexer=code ; startcat=Stm ;
     TNum t = t ;
     TInt   = ss "i" ;
     TFloat = ss "f" ;
-
     NilTyp = ss [] ;
     ConsTyp = cc2 ;
-
-    NilExp = ss [] ;
     OneExp _ e = e ;
     ConsExp _ _ = cc2 ;
 }
-- 
cgit v1.2.3