picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mlib/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 ###