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

Need locks in +FileField
Diffstat:
Mlib/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)