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 df23b2178c1ab24262ad914b689cbcf6f40b46d6
parent 13b167db1d2c2388365fe1efad1a949a772d2eef
Author: Commit-Bot <unknown>
Date:   Fri, 18 Jun 2010 09:49:39 +0000

Automatic commit from picoLisp.tgz, From: Fri, 18 Jun 2010 09:49:39 GMT
Diffstat:
Mdoc/refL.html | 2++
Mlib/math.l | 7++++++-
Msrc64/version.l | 4++--
3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/doc/refL.html b/doc/refL.html @@ -126,6 +126,8 @@ pass <code>NIL</code> as a <code>sym</code> argument. See also <code><a href="refL.html#let?">let?</a></code>, <code><a href="refB.html#bind">bind</a></code>, <code><a href="refR.html#recur">recur</a></code>, <code><a +href="refW.html#with">with</a></code>, <code><a +href="refF.html#for">for</a></code>, <code><a href="refJ.html#job">job</a></code> and <code><a href="refU.html#use">use</a></code>. diff --git a/lib/math.l b/lib/math.l @@ -1,4 +1,4 @@ -# 18mar10abu +# 18jun10abu # (c) Software Lab. Alexander Burger (and (=0 *Scl) (scl 6)) # Default scale 6 @@ -8,4 +8,9 @@ (load (if (== 64 64) "@lib/math64.l" "@lib/math32.l")) +(de round (N D) + (if (>= *Scl D) + (format (*/ N (** 10 (- *Scl D))) D) + (format N *Scl) ) ) + # vi:et:ts=3:sw=3 diff --git a/src64/version.l b/src64/version.l @@ -1,6 +1,6 @@ -# 14jun10abu +# 18jun10abu # (c) Software Lab. Alexander Burger -(de *Version 3 0 2 29) +(de *Version 3 0 2 30) # vi:et:ts=3:sw=3