picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mersatz/fun.src | 6+++---
Mersatz/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.