picolisp

commit 9dea8e9165a9e178779b4f9106e10905c68fb213
parent 5f974eeb19aefca6a4886f48dc11a515950d7701
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 21 Oct 2012 17:44:13 +0200

Bug in 'collect' for 'fold'ed keys
Diffstat:
M
CHANGES
 | 
1
+
M
lib/db.l
 | 
4
++--

2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * DDmmm12 picoLisp-3.1.1
+   Bug in 'collect' for 'fold'ed keys
    File descriptor leak in 'dir' (64-bit)
    Namespace support also in Ersatz PicoLisp
    JavaScript 'lisp' calls
diff --git a/lib/db.l b/lib/db.l
@@ -1,4 +1,4 @@
-# 09jul12abu
+# 21oct12abu
 # (c) Software Lab. Alexander Burger
 
 # *Dbs *Jnl *Blob upd
@@ -92,7 +92,7 @@
                   '((X) (and (isa Cls X) (link (pass get X))))
                   X1 X2 )
                (when (isa '+Fold This)
-                  (setq X1 (fold X1)  X2 (fold X2)) )
+                  (setq X1 (fold X1)  X2 (or (=T X2) (fold X2))) )
                (if (>= X2 X1)
                   (if (pair X1)
                      (setq X2 (append X2 T))