From 5a208ce3ea26726d15e814c0498680597cca45fa Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Sat, 25 Sep 2004 08:24:11 +0000
Subject: compiler works on abs and fibonacci

---
 examples/gfcc/ResImper.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/examples/gfcc/ResImper.gf b/examples/gfcc/ResImper.gf
index c392f078e..10454e4df 100644
--- a/examples/gfcc/ResImper.gf
+++ b/examples/gfcc/ResImper.gf
@@ -72,6 +72,6 @@ resource ResImper = open Predef in {
       ss (s ++ ";" ++ i.s) ** {s2 = v ++ i.s2 ; s3 = i.s3} ;
     binop  : Str -> SS -> SS -> SS = \op, x, y ->
       ss (x.s ++ y.s ++ op ++ ";") ;
-    binopt : Str -> SS -> SS -> SS -> SS = \op, x, y, t ->
-      ss (x.s ++ y.s ++ t.s ++ op ++ ";") ;
+    binopt : Str -> SS -> SS -> SS -> SS = \op, t ->
+      binop (t.s ++ op) ;
 }
-- 
cgit v1.2.3