* lib.c (max2, min2): Use the less comparison function

for generic semantics.

* lib.h (max2, min2): Parameter names changed to avoid suggesting
that the operands are numbers.

* txr.1: Documentation for min and max updated.

1 files changed, 4 insertions, 4 deletions

diff --git a/lib.c b/lib.c
index a06dfa7e..62d43b67 100644
--- a/lib.c
+++ b/lib.c
@@ -2139,14 +2139,14 @@ val numneqv(val list)
   return t;
 }
 
-val max2(val anum, val bnum)
+val max2(val a, val b)
 {
-  return if3(ge(anum, bnum), anum, bnum);
+  return if3(less(a, b), b, a);
 }
 
-val min2(val anum, val bnum)
+val min2(val a, val b)
 {
-  return if3(le(anum, bnum), anum, bnum);
+  return if3(less(a, b), a, b);
 }
 
 val maxv(val first, val rest)