* arith.c (gcd): Fix semantics. If either operand is

zero, return the other operand.
(lcm): New function.

* eval.c (eval_init): Retarget registration of gcd to
variable argument gcdv function. Register lcm.

* lib.c (gcdv, lcmv): New functions.

* lib.h (gcdv, lcm, lcmv): Declared.

* txr.1: Re-document gcd with coverage of lcm.

* txr.vim: Regenerated.

1 files changed, 3 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index cf1a8d4f..fd4763e0 100644
--- a/lib.h
+++ b/lib.h
@@ -538,6 +538,9 @@ val exptmod(val base, val exp, val mod);
 val sqroot(val anum);
 val isqrt(val anum);
 val gcd(val anum, val bnum);
+val gcdv(val nlist);
+val lcm(val anum, val bnum);
+val lcmv(val nlist);
 val floorf(val);
 val ceili(val);
 val sine(val);