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

Minor cosmetics
Diffstat:
Mersatz/lib.l | 9+++++----
Mlib.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))