compiler works on abs and fibonacci

This commit is contained in:
aarne
2004-09-25 08:24:11 +00:00
parent ff2a2895c0
commit 5a208ce3ea
8 changed files with 99 additions and 32 deletions

View File

@@ -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) ;
}