From 2f7ccc5d31ac34f47461114f9127136aa99de342 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 11 Oct 1989 15:30:29 +0000
Subject: [PATCH] Fix a bug in the error exits for &> .

---
 v7/src/microcode/generic.c | 14 ++++++++++++--
 v7/src/microcode/version.h |  6 +++---
 v8/src/microcode/version.h |  6 +++---
 3 files changed, 18 insertions(+), 8 deletions(-)

diff --git a/v7/src/microcode/generic.c b/v7/src/microcode/generic.c
index e114c4cc5..2c0b1e618 100644
--- a/v7/src/microcode/generic.c
+++ b/v7/src/microcode/generic.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/generic.c,v 9.30 1989/09/20 23:08:54 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/generic.c,v 9.31 1989/10/11 15:30:29 jinx Exp $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -267,6 +267,16 @@ real_less_p (Arg1, Arg2)
   TWO_OP_COMPARATOR (<, BIGNUM_LESS_P);
 }
 
+#define BIGNUM_GREATER_P(x, y)		(BIGNUM_LESS_P((y), (x)))
+
+static Boolean
+real_greater_p (Arg1, Arg2)
+     fast SCHEME_OBJECT Arg1;
+     fast SCHEME_OBJECT Arg2;
+{
+  TWO_OP_COMPARATOR (>, BIGNUM_GREATER_P);
+}
+
 DEFINE_PRIMITIVE ("&=", Prim_equal_number, 2, 2, 0)
 {
   PRIMITIVE_HEADER (2);
@@ -298,7 +308,7 @@ DEFINE_PRIMITIVE ("&>", Prim_greater, 2, 2, 0)
   PRIMITIVE_HEADER (2);
   Set_Time_Zone (Zone_Math);
   PRIMITIVE_RETURN
-    (BOOLEAN_TO_OBJECT (real_less_p ((ARG_REF (2)), (ARG_REF (1)))));
+    (BOOLEAN_TO_OBJECT (real_greater_p ((ARG_REF (1)), (ARG_REF (2)))));
 }
 
 #define TWO_OP_OPERATOR(FIXNUM_OP, FLONUM_OP, BIGNUM_OP)		\
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index b63eb8618..b832cbc5d 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.4 1989/09/28 21:19:51 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.5 1989/10/11 15:30:17 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -37,7 +37,7 @@ MIT in each case. */
 /* Scheme system release version */
 
 #ifndef RELEASE
-#define RELEASE		"7.0.0 (beta)"
+#define RELEASE		"7.1.0"
 #endif
 
 /* Microcode release version */
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	4
+#define SUBVERSION	5
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 8cde4c23e..a3fb81bb2 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.4 1989/09/28 21:19:51 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.5 1989/10/11 15:30:17 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -37,7 +37,7 @@ MIT in each case. */
 /* Scheme system release version */
 
 #ifndef RELEASE
-#define RELEASE		"7.0.0 (beta)"
+#define RELEASE		"7.1.0"
 #endif
 
 /* Microcode release version */
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	4
+#define SUBVERSION	5
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1