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 7a2386d83fe5ec11357b876e2b06e224ced121a8
parent 5965c7563842a274f7ac1d4368bc098671f03a4e
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 15 Dec 2012 08:18:13 +0100

Direct comparison of anonymous symbols
Diffstat:
Msrc/main.c | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/main.c b/src/main.c @@ -1,4 +1,4 @@ -/* 15nov12abu +/* 15dec12abu * (c) Software Lab. Alexander Burger */ @@ -459,7 +459,7 @@ int compare(any x, any y) { if (isCell(y) || y == T) return -1; if (!isNum(a = name(x))) - return !isNum(name(y))? 1664525*(int32_t)(long)x - 1664525*(int32_t)(long)y : -1; + return !isNum(name(y))? (long)x - (long)y : -1; if (!isNum(b = name(y))) return +1; n1 = unDig(a), n2 = unDig(b);