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 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:
MCHANGES | 1+
Mlib/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)