picolisp

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:
M
doc/refL.html
 | 
2
++
M
lib/math.l
 | 
7
++++++-
M
src64/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