picolisp

commit 86a5cfc198991c6b2603a72ad4ed77b91fd453c9
parent 9c5318d587b6b0bcb0b7056302248c87a9b631e4
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 23 Jan 2013 10:02:22 +0100

'+Hook2' correction
Diffstat:
M
lib/db.l
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/db.l b/lib/db.l
@@ -1,4 +1,4 @@
-# 22jan13abu
+# 23jan13abu
 # (c) Software Lab. Alexander Burger
 
 # *Dbs *Jnl *Blob upd
@@ -407,11 +407,11 @@
    (extra Obj Old New *DB)
    (extra Obj Old New Hook) )
 
-(dm lose> (Obj Val)
+(dm lose> (Obj Val Hook)
    (extra Obj Val *DB)
    (extra Obj Val Hook) )
 
-(dm keep> (Obj Val)
+(dm keep> (Obj Val Hook)
    (extra Obj Val *DB)
    (extra Obj Val Hook) )