picolisp

commit 0d797a8f34ff0754431844c1e3809e58373fca91
parent 75cd33138f81406b08c028f9fa50ad15c6420b22
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 16 Jun 2011 11:37:27 +0200

Default 'N' to '*Scl' for convenience (upon Arm's request)
Diffstat:
M
misc/pi.l
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/misc/pi.l b/misc/pi.l
@@ -11,7 +11,7 @@
 ##############################
 
 (de pi (N Eps)
-   (default Eps 100)
+   (default N *Scl  Eps 100)
    (let (Scl (** 10 N)  S 0  N2 (* 2 Scl)  P N2  P2 0)
       (while (> (- P P2) Eps)
          (setq