picolisp

commit 209e4f00d4752a375e8ac68544c7bb3ff26ced01
parent 4c46a4e9d2753822db17564270a153957bad2b9d
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 27 Jan 2011 18:12:19 +0100

(char 0) didn't return NIL in ErsatzLisp
Diffstat:
M
ersatz/fun.src
 | 
6
+++---
M
ersatz/picolisp.jar
 | 
0

2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/ersatz/fun.src b/ersatz/fun.src
@@ -1,4 +1,4 @@
-# 23jan11abu
+# 27jan11abu
 # (c) Software Lab. Alexander Burger
 
 # Ersatz PicoLisp Functions
@@ -3238,8 +3238,8 @@ char (x)
       return x;
    }
    if ((x = ex.Car.eval()) instanceof Number)
-      return x.equals(Zero)? Nil : mkChar((char)((Number)x).Cnt);
-   return x == T? mkChar((char)0x10000) : new Number(firstChar(x));
+      return x.equal(Zero)? Nil : mkChar((char)((Number)x).Cnt);
+   return x == T? mkChar((char)0xFFFF) : new Number(firstChar(x));
 
 # (skip ['any]) -> sym
 skip (c)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.