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 6090f7ba4f7b1e3db4a934e4d4f6f736861a7d15
parent e014a1667299c64164acd0956f4071cb1f979987
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  8 Sep 2011 16:38:43 +0200

Check 'lock' (for +E/R +Chart) before 'put!>'
Diffstat:
Mlib/form.l | 4+++-
1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/form.l b/lib/form.l @@ -1,4 +1,4 @@ -# 06may11abu +# 08sep11abu # (c) Software Lab. Alexander Burger # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans @@ -1857,6 +1857,7 @@ (dm set> (Val Dn) (and + (not (: lock)) (eval (: erObj)) (put!> @ (: erVar) Val) ) (extra Val Dn) ) @@ -1895,6 +1896,7 @@ (dm set> (Val Dn) (and + (not (: lock)) (<> Val (: org)) (let? Obj (eval (: erObj)) (protect