picolisp

commit 940fccd04ada1a55f5ffcdcf1d3b21809c7ca051
parent c35c157d28f05c5ee90f6bb3dd6b76b202454bf4
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 26 Dec 2012 22:03:45 +0100

Minor cosmetics
Diffstat:
M
lib/btree.l
 | 
36
++++++++++++++++++------------------

1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/lib/btree.l b/lib/btree.l
@@ -1,4 +1,4 @@
-# 08oct09abu
+# 26dec12abu
 # (c) Software Lab. Alexander Burger
 
 # *Prune
@@ -69,10 +69,10 @@
 
 (de _put (Top)
    (let (V (val Top)  R (rank Key (cdr V)))
-      (if (and R (= Key (car R)))
-         (nil (touch Top) (con (cdr R) Val))
-         (cond
-            (R
+      (cond
+         (R
+            (if (= Key (car R))
+               (nil (touch Top) (con (cdr R) Val))
                (let X (memq R V)
                   (if (cadr R)
                      (when (_put @)
@@ -85,20 +85,20 @@
                         (cons (cons Key (cons NIL Val)) (cdr X)) )
                      (touch Base)
                      (inc Root)
-                     (_splitBt) ) ) )
-            ((car V)
-               (when (_put @)
-                  (touch Top)
-                  (set V (car @))
-                  (con V (cons (cdr @) (cdr V)))
-                  (_splitBt) ) )
-            (T
+                     (_splitBt) ) ) ) )
+         ((car V)
+            (when (_put @)
                (touch Top)
-               (con V
-                  (cons (cons Key (cons NIL Val)) (cdr V)) )
-               (touch Base)
-               (inc Root)
-               (_splitBt) ) ) ) ) )
+               (set V (car @))
+               (con V (cons (cdr @) (cdr V)))
+               (_splitBt) ) )
+         (T
+            (touch Top)
+            (con V
+               (cons (cons Key (cons NIL Val)) (cdr V)) )
+            (touch Base)
+            (inc Root)
+            (_splitBt) ) ) ) )
 
 (de _splitBt ()
    (when (and (cddddr V) (> (size Top) (cdr Dbf)))