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 0a23bed826398acb1bdc5d4d24f3c6312cd34b77
parent 2eaf1a13be8045e01cba9ff642c78803fd857dcb
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 18 Feb 2011 09:57:46 +0100

Single transaction
Diffstat:
Mlib/form.l | 10++++++----
1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/form.l b/lib/form.l @@ -1876,10 +1876,12 @@ (=: able (bool (: able))) ) (dm set> (Val Dn) - (and - Val - (not (eval (: erObj))) - (put!> (: home obj) (: sub 1) (new! (: sub -1))) ) + (when (and Val (not (eval (: erObj)))) + (dbSync) + (put> (: home obj) + (: sub 1) + (new (or (meta (: sub -1) 'Dbf 1) 1) (: sub -1)) ) + (commit 'upd) ) (super Val Dn) )