picolisp

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

Single transaction
Diffstat:
M
lib/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) )