picolisp

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:
M
src/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);