From 6af6dae0df106de569e9b9cf503b3350722e58eb Mon Sep 17 00:00:00 2001 From: Martin Odersky Date: Mon, 2 Jun 2003 12:01:26 +0000 Subject: *** empty log message *** --- test/files/run/lisp.scala | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'test/files/run/lisp.scala') diff --git a/test/files/run/lisp.scala b/test/files/run/lisp.scala index 8c994f668c..0bcdaeb31d 100644 --- a/test/files/run/lisp.scala +++ b/test/files/run/lisp.scala @@ -144,14 +144,14 @@ object Lisp { .extend("=", Lambda{ case List(arg1, arg2) => if(arg1 == arg2) 1 else 0}) .extend("+", Lambda{ - case List(arg1: int, arg2: int) => asInt(arg1) + asInt(arg2) - case List(arg1: String, arg2: String) => asString(arg1) + asString(arg2)}) + case List(arg1: int, arg2: int) => arg1 + arg2 + case List(arg1: String, arg2: String) => arg1 + arg2}) .extend("-", Lambda{ - case List(arg1, arg2) => asInt(arg1) - asInt(arg2)}) + case List(arg1: int, arg2: int) => arg1 - arg2}) .extend("*", Lambda{ - case List(arg1, arg2) => asInt(arg1) * asInt(arg2)}) + case List(arg1: int, arg2: int) => arg1 * arg2}) .extend("/", Lambda{ - case List(arg1, arg2) => asInt(arg1) / asInt(arg2)}) + case List(arg1: int, arg2: int) => arg1 / arg2}) .extend("nil", Nil) .extend("cons", Lambda{ case List(arg1, arg2) => arg1 :: asList(arg2)}) -- cgit v1.2.3