picolisp

commit 046fd2ab24f54942b93b4bb069fda8c9689e9091
parent 24fe80028edf1704f9ad3e7e738cff49424dc999
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  2 Jan 2012 15:15:00 +0100

Cosmetics
Diffstat:
M
lib/form.l
 | 
24
++++++++++++------------

1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 19dec11abu
+# 02jan12abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -65,35 +65,35 @@
                   (htPrin "Prg") )
                (set "*App")
                (let gui
-                  '(@
+                  '((X . @)
                      (inc '"*Ix")
                      (with
                         (cond
-                           ((pair (next)) (pass new @))
-                           ((not (arg)) (pass new))
-                           ((num? (arg))
+                           ((pair X) (pass new X))
+                           ((not X) (pass new))
+                           ((num? X)
                               (ifn "*Chart"
                                  (quit "no chart" (rest))
                                  (with "*Chart"
-                                    (let (I (arg)  L (last (: gui)))
-                                       (when (get L I)
+                                    (let L (last (: gui))
+                                       (when (get L X)
                                           (inc (:: rows))
                                           (conc (: gui)
                                              (list (setq L (need (: cols)))) ) )
                                        (let Fld (pass new)
-                                          (set (nth L I) Fld)
+                                          (set (nth L X) Fld)
                                           (and (get Fld 'chg) (get Fld 'able) (=: lock))
                                           (set> Fld
                                              (get
                                                 ((: put)
                                                    (get (nth (: data) (: ofs)) (: rows))
                                                    (+ (: ofs) (: rows) -1) )
-                                                I )
+                                                X )
                                              T )
-                                          (put Fld 'chart (list This (: rows) I))
+                                          (put Fld 'chart (list This (: rows) X))
                                           Fld ) ) ) ) )
-                           ((get "*App" (arg)) (quit "gui conflict" (arg)))
-                           (T (put "*App" (arg) (pass new))) )
+                           ((get "*App" X) (quit "gui conflict" X))
+                           (T (put "*App" X (pass new))) )
                         (=: home gui (conc (: home gui) (cons This)))
                         (unless (: chart) (init> This))
                         (when (: id)