* lib.c (min2, max2): Semantics tweak. If the numbers are equal,

favor the left one.

* txr.1: Documented min and max.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index d354ce6e..eb756086 100644
--- a/lib.c
+++ b/lib.c
@@ -1285,12 +1285,12 @@ val numeqv(val first, val rest)
 
 val max2(val anum, val bnum)
 {
-  return if3(gt(anum, bnum), anum, bnum);
+  return if3(ge(anum, bnum), anum, bnum);
 }
 
 val min2(val anum, val bnum)
 {
-  return if3(lt(anum, bnum), anum, bnum);
+  return if3(le(anum, bnum), anum, bnum);
 }
 
 val maxv(val first, val rest)