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 5babc878de336e29b92c925956f34b36e8d3f678
parent 86a5cfc198991c6b2603a72ad4ed77b91fd453c9
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 23 Jan 2013 11:34:41 +0100

'+Hook2' refinement
Diffstat:
Mlib/db.l | 9++++++---
1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/db.l b/lib/db.l @@ -405,15 +405,18 @@ (dm rel> (Obj Old New Hook) (extra Obj Old New *DB) - (extra Obj Old New Hook) ) + (when (or (and Hook (n== Hook *DB)) (get Obj (: hook))) + (extra Obj Old New Hook) ) ) (dm lose> (Obj Val Hook) (extra Obj Val *DB) - (extra Obj Val Hook) ) + (when (or (and Hook (n== Hook *DB)) (get Obj (: hook))) + (extra Obj Val Hook) ) ) (dm keep> (Obj Val Hook) (extra Obj Val *DB) - (extra Obj Val Hook) ) + (when (or (and Hook (n== Hook *DB)) (get Obj (: hook))) + (extra Obj Val Hook) ) ) # (+Blob)