picolisp

commit 5b4a48a0d77bb624b4f8aba4a97e13bfd6f07d45
parent a7e28d9f078ef3786e010b7464155b57e05edd44
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  2 Feb 2011 09:53:50 +0100

Minor optimization
Diffstat:
M
ersatz/lib.l
 | 
4
++--
M
lib/misc.l
 | 
4
++--

2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/ersatz/lib.l b/ersatz/lib.l
@@ -1,4 +1,4 @@
-# 19jan11abu
+# 02feb11abu
 # (c) Software Lab. Alexander Burger
 
 ############ lib.l ############
@@ -471,7 +471,7 @@
       (format N 2 *Sep0 *Sep3) ) )
 
 (de round (N D)
-   (if (>= *Scl (default D 3))
+   (if (> *Scl (default D 3))
       (format (*/ N (** 10 (- *Scl D))) D *Sep0 *Sep3)
       (format N *Scl *Sep0 *Sep3) ) )
 
diff --git a/lib/misc.l b/lib/misc.l
@@ -1,4 +1,4 @@
-# 17jan11abu
+# 02feb11abu
 # (c) Software Lab. Alexander Burger
 
 # *Allow *Tmp
@@ -88,7 +88,7 @@
       (format N 2 *Sep0 *Sep3) ) )
 
 (de round (N D)
-   (if (>= *Scl (default D 3))
+   (if (> *Scl (default D 3))
       (format (*/ N (** 10 (- *Scl D))) D *Sep0 *Sep3)
       (format N *Scl *Sep0 *Sep3) ) )