picolisp

commit 1451918bd1ece6eccff74b2bc3b22dd3e3862097
parent 53096943d0360cf3eff507448d502ab87982acc6
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 26 May 2011 15:58:14 +0200

Minor simplification of 'lcm' in "lib/frac.l"
Diffstat:
M
ersatz/picolisp.jar
 | 
0

M
lib/frac.l
 | 
4
++--
M
src/vers.h
 | 
2
+-
M
src64/version.l
 | 
4
++--

4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/frac.l b/lib/frac.l
@@ -1,4 +1,4 @@
-# 23jan11abu
+# 26may11abu
 # (c) Software Lab. Alexander Burger
 
 (de gcd (A B)
@@ -8,7 +8,7 @@
    (abs A) )
 
 (de lcm (A B)
-   (* B (/ A (gcd A B))) )
+   (*/ A B (gcd A B)) )
 
 (de frac (N D)
    (if (=0 N)
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,6,13};
+static byte Version[4] = {3,0,6,14};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 20may11abu
+# 26may11abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 6 13)
+(de *Version 3 0 6 14)
 
 # vi:et:ts=3:sw=3