picolisp

commit fc004eec5e1d5ddbe505cf73dd39f3d37eb40335
parent 2ef8d06c78c08279be15a87bafd14972c3a5e501
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 26 Jan 2013 09:20:47 +0100

Don't 'dump' DB-Hooks
Diffstat:
M
lib/too.l
 | 
10
++--------

1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/lib/too.l b/lib/too.l
@@ -1,4 +1,4 @@
-# 02jan12abu
+# 25jan13abu
 # (c) Software Lab. Alexander Burger
 
 ### DB Garbage Collection ###
@@ -410,7 +410,7 @@
             (_dmp Obj)
             (maps
                '((X)
-                  (unless (member X Lst)
+                  (unless (or (member X Lst) (= `(char "+") (char (fin X))))
                      (prinl)
                      (space 3)
                      (cond
@@ -449,9 +449,6 @@
                      (when (isa '+Key This)
                         (or Flg (push 'Lst X))
                         (printsp (type Obj) (: var))
-                        (when (: hook)
-                           (_dmp (: hook) T)
-                           (space) )
                         (_dmp (car X) T)
                         (throw) ) ) )
                Obj )
@@ -463,9 +460,6 @@
                         (space)
                         (or Flg (push 'Lst X))
                         (print (: var))
-                        (when (: hook)
-                           (space)
-                           (_dmp (: hook) T) )
                         (space)
                         (_dmp (car X) T) ) ) )
                Obj ) )