commit 5babc878de336e29b92c925956f34b36e8d3f678 parent 86a5cfc198991c6b2603a72ad4ed77b91fd453c9 Author: Alexander Burger <abu@software-lab.de> Date: Wed, 23 Jan 2013 11:34:41 +0100 '+Hook2' refinement Diffstat:
| M | lib/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)