picolisp

commit b77200e37c85179a0bc73ef0c07e0eb6e9c28bc1
parent 62cf9e7781068febe0f5bc6f9802af42a52e668d
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 22 Mar 2011 15:16:39 +0100

Need locks in +FileField
Diffstat:
M
lib/form.l
 | 
8
+++++---

1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 28feb11abu
+# 22mar11abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -1442,14 +1442,16 @@
    (and
       (<> Val (: org))
       (eval (: file))
-      (out @ (prin (=: org Val))) )
+      (out @ (ctl T (prin (=: org Val)))) )
    (super Val Dn) )
 
 (dm upd> ()
    (set> This
       (=: org
          (let? F (eval (: file))
-            (and (info F) (in F (till NIL T))) ) ) ) )
+            (and
+               (info F)
+               (in F (ctl NIL (till NIL T))) ) ) ) ) )
 
 
 (class +Url)