picolisp

commit 000386499b03835c0b9d4b529a84f79828070b94
parent 96bce9d943086789a0a80bdce973ddb7a43b3e43
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 21 May 2012 14:24:07 +0200

Bug: Missing '+Fold' support in 'connect'
Diffstat:
M
ersatz/picolisp.jar
 | 
0

M
lib/db.l
 | 
4
+++-
M
src/vers.h
 | 
2
+-
M
src64/version.l
 | 
4
++--

4 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/db.l b/lib/db.l
@@ -1,4 +1,4 @@
-# 14feb12abu
+# 21may12abu
 # (c) Software Lab. Alexander Burger
 
 # *Dbs *Jnl *Blob upd
@@ -91,6 +91,8 @@
                (iter Tree
                   '((X) (and (isa Cls X) (link (pass get X))))
                   X1 X2 )
+               (when (isa '+Fold This)
+                  (setq X1 (fold X1)  X2 (fold X2)) )
                (if (>= X2 X1)
                   (if (pair X1)
                      (setq X2 (append X2 T))
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,1,0,5};
+static byte Version[4] = {3,1,0,6};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 09may12abu
+# 21may12abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 1 0 5)
+(de *Version 3 1 0 6)
 
 # vi:et:ts=3:sw=3