picolisp

commit 35c39967c8fd03177a2cd025710f0475c80bbc18
parent 17957bf99fa23c5bd45adcac735f31a5e8e57837
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 20 Sep 2011 20:15:57 +0200

Minor cosmetics
Diffstat:
M
ersatz/lib.l
 | 
9
+++++----
M
lib.l
 | 
9
+++++----

2 files changed, 10 insertions(+), 8 deletions(-)
diff --git a/ersatz/lib.l b/ersatz/lib.l
@@ -1,4 +1,4 @@
-# 20jul11abu
+# 20sep11abu
 # (c) Software Lab. Alexander Burger
 
 ############ lib.l ############
@@ -48,6 +48,7 @@
 
 (====)
 
+### Definitions ###
 (de expr ("F")
    (set "F"
       (list '@ (list 'pass (box (getd "F")))) ) )
@@ -112,9 +113,6 @@
 
 (====)
 
-(de scl (N)
-   (setq *Scl N) )
-
 ### I/O ###
 (de tab (Lst . @)
    (for N Lst
@@ -224,6 +222,9 @@
    (apply meta X This) )
 
 ### Math ###
+(de scl (N)
+   (setq *Scl N) )
+
 (de sqrt (N F)
    (cond
       ((lt0 N) (quit "Bad argument" N))
diff --git a/lib.l b/lib.l
@@ -1,4 +1,4 @@
-# 15apr11abu
+# 20sep11abu
 # (c) Software Lab. Alexander Burger
 
 (de task (Key . Prg)
@@ -64,6 +64,7 @@
 
 (====)
 
+### Definitions ###
 (de expr ("F")
    (set "F"
       (list '@ (list 'pass (box (getd "F")))) ) )
@@ -128,9 +129,6 @@
 
 (====)
 
-(de scl (N)
-   (setq *Scl N) )
-
 ### I/O ###
 (de tab (Lst . @)
    (for N Lst
@@ -265,6 +263,9 @@
    (apply meta X This) )
 
 ### Math ###
+(de scl (N)
+   (setq *Scl N) )
+
 (de sqrt (N F)
    (cond
       ((lt0 N) (quit "Bad argument" N))