picolisp

commit bc5c80c61a5e9aa01db6daaac4153787bffba0e9
parent c06aff4efab5025f00019dd1bb9ffb4eeb3c8320
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  8 Mar 2012 10:53:18 +0100

Use 'val>' instead of (: data) in chart operations
Diffstat:
M
ersatz/picolisp.jar
 | 
0

M
lib/form.l
 | 
22
++++++++++++++--------
M
src/vers.h
 | 
2
+-
M
src64/version.l
 | 
4
++--

4 files changed, 17 insertions(+), 11 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 27jan12abu
+# 07mar12abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -1170,7 +1170,8 @@
 
 (de _delRow (Exe)
    (eval Exe)
-   (set> (: chart 1) (remove (row) (: chart 1 data))) )
+   (set> (: chart 1)
+      (remove (row) (val> (: chart 1))) ) )
 
 # Move row up
 (class +BubbleButton +Tiny +JS +Able +Tip +Button)
@@ -1180,7 +1181,7 @@
       '(> (: chart 2) 1)
       ,"Shift row up"
       "\^"
-      '(let L (: chart 1 data)
+      '(let L (val> (: chart 1))
          (set> (: chart 1)
             (conc
                (cut (row -2) 'L)
@@ -1692,7 +1693,7 @@
 
 (dm log> (Lst)
    (=: ofs (max (: ofs) (- (length (: data)) (: rows) -2)))
-   (set> This (conc (: data) (cons Lst))) )
+   (set> This (conc (val> This) (cons Lst))) )
 
 (dm clr> ()
    (set> This) )
@@ -1710,12 +1711,17 @@
 
 (dm cut> (N)
    (get> This)
-   (=: clip (get (: data) (: ofs)))
-   (set> This (remove (or N (: ofs)) (: data))) )
+   (=: clip (get (val> This) (: ofs)))
+   (set> This
+      (remove (or N (: ofs)) (val> This)) ) )
 
 (dm paste> (Flg N)
    (get> This)
-   (set> This (insert (or N (: ofs)) (: data) (unless Flg (: clip)))) )
+   (set> This
+      (insert
+         (or N (: ofs))
+         (val> This)
+         (unless Flg (: clip)) ) ) )
 
 
 (class +Chart1 +Chart)
@@ -2157,7 +2163,7 @@
       (goal
          (list
             (list 'lst '@@
-               (by '((This) (eval Exe)) sort (: data)) ) ) ) ) )
+               (by '((This) (eval Exe)) sort (val> This)) ) ) ) ) )
 
 (dm clr> ()
    (query> This (fail)) )
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,9,4};
+static byte Version[4] = {3,0,9,5};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 21feb12abu
+# 07mar12abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 9 4)
+(de *Version 3 0 9 5)
 
 # vi:et:ts=3:sw=3