picolisp

commit 8d695b26693edd3e0abf4ba7f786f370d224afa7
parent 533bd2c0fbad87ebb32cbf809c559a283a01699f
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 14 Feb 2012 15:37:10 +0100

Bug in 'db' for partial '+Aux' access
Diffstat:
M
lib/db.l
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/db.l b/lib/db.l
@@ -1,4 +1,4 @@
-# 05jan12abu
+# 14feb12abu
 # (c) Software Lab. Alexander Burger
 
 # *Dbs *Jnl *Blob upd
@@ -53,7 +53,8 @@
                (fetch Tree Val) )
             (let Key (cons (if (isa '+Fold This) (fold Val) Val))
                (let? A (: aux)
-                  (while (and (args) (== (pop 'A) (next)))
+                  (while (and (args) (== (pop 'A) (arg 1)))
+                     (next)
                      (conc Key (cons (next))) )
                   (and (: ub) (setq Key (ubZval Key))) )
                (let Q (init Tree Key (append Key T))