picolisp

commit 3c55bd41b8f55970b5624c155e38e846853b9c13
parent cf2c2ef058a188f02aedda1dc90b0e4c1650386e
Author: Commit-Bot <unknown>
Date:   Fri, 18 Jun 2010 11:07:37 +0000

Automatic commit from picoLisp.tgz, From: Fri, 18 Jun 2010 11:07:37 GMT
Diffstat:
M
CHANGES
 | 
1
+
M
lib/misc.l
 | 
4
++--

2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXjun10 picoLisp-3.0.3
+   'round' function
    'co', 'yield' and 'stack' coroutine functions
    'sigio' function
    'sqrt' optionally rounds
diff --git a/lib/misc.l b/lib/misc.l
@@ -123,8 +123,8 @@
 
 (de round (N D)
    (if (>= *Scl D)
-      (format (*/ N (** 10 (- *Scl D))) D)
-      (format N *Scl) ) )
+      (format (*/ N (** 10 (- *Scl D))) D *Sep0 *Sep3)
+      (format N *Scl *Sep0 *Sep3) ) )
 
 # Octal notation
 (de oct (X)