picolisp

commit adc9a7e087096d979695e09f8c33f4952b7c643b
parent f206a95f83bd16202fed60b7e9085872128b8aa1
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  1 Mar 2013 14:14:47 +0100

Pass 'Hook' to 're-index'
Diffstat:
M
lib/too.l
 | 
13
+++++++------

1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/lib/too.l b/lib/too.l
@@ -1,4 +1,4 @@
-# 25jan13abu
+# 01mar13abu
 # (c) Software Lab. Alexander Burger
 
 ### DB Garbage Collection ###
@@ -230,22 +230,23 @@
                (recur (Lst Len)
                   (unless (=0 Len)
                      (let (N (>> 1 (inc Len))  L (nth Lst N))
-                        (re-index (car L) Var)
+                        (re-index (car L) Var Hook)
                         (recurse Lst (dec N))
                         (recurse (cdr L) (- Len N)) ) ) ) ) )
          ((atom X)
             (for Obj X
-               (re-index Obj Var) ) )
+               (re-index Obj Var Hook) ) )
          (NIL
             (for (Obj X Obj (seq Obj))
-               (and (isa Cls Obj) (re-index Obj Var)) ) ) )
+               (and (isa Cls Obj) (re-index Obj Var Hook)) ) ) )
       (commit) ) )
 
-(de re-index (Obj Var)
+(de re-index (Obj Var Hook)
    (unless (get Obj T)
       (when (get Obj Var)
          (rel> (meta Obj Var) Obj NIL
-            (put> (meta Obj Var) Obj NIL @) )
+            (put> (meta Obj Var) Obj NIL @)
+            Hook )
          (at (0 . 10000) (commit)) ) ) )
 
 ### Database file management ###