picolisp

commit f3942a398bc5ccb70f4842717a3de91e24e2674e
parent 1705a6bb39be1eb4ba419e2b0d6b01908a4a9072
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  1 May 2011 11:30:39 +0200

Minor change to '<id>' for empty forms
Diffstat:
M
lib/form.l
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 22mar11abu
+# 01may11abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -2113,6 +2113,7 @@
    (=: able
       (cond
          ((: obj T))
+         ((not (: obj)))
          ((=T (car "Lst")) T)
          ((== *Lock (: obj)) T)
          (*Lock (rollback) (off *Lock)) ) ) )