From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Mar 1991 00:32:59 +0000 (+0000)
Subject: Fix typo in bignum =.
X-Git-Tag: 20090517-FFI~10883
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b259b293c02366a675d8ac208fc3218071354c0e;p=mit-scheme.git

Fix typo in bignum =.
---

diff --git a/v7/src/microcode/bignum.c b/v7/src/microcode/bignum.c
index fd02cf242..a22b88120 100644
--- a/v7/src/microcode/bignum.c
+++ b/v7/src/microcode/bignum.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.c,v 9.34 1991/02/21 16:17:48 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.c,v 9.35 1991/03/06 00:32:43 cph Exp $
 
-Copyright (c) 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1989-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -130,11 +130,11 @@ bignum_equal_p (x, y)
   return
     ((BIGNUM_ZERO_P (x))
      ? (BIGNUM_ZERO_P (y))
-     : ((! (BIGNUM_ZERO_P (y))) &&
-	((BIGNUM_NEGATIVE_P (x))
-	 ? (BIGNUM_NEGATIVE_P (x))
-	 : (! (BIGNUM_NEGATIVE_P (x)))) &&
-	(bignum_equal_p_unsigned (x, y))));
+     : ((! (BIGNUM_ZERO_P (y)))
+	&& ((BIGNUM_NEGATIVE_P (x))
+	    ? (BIGNUM_NEGATIVE_P (y))
+	    : (! (BIGNUM_NEGATIVE_P (y))))
+	&& (bignum_equal_p_unsigned (x, y))));
 }
 
 enum bignum_comparison
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 6664604be..e28ee83f3 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.63 1991/03/01 00:56:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.64 1991/03/06 00:32:59 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	63
+#define SUBVERSION	64
 #endif
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 1ff20fe11..4036d1241 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.63 1991/03/01 00:56:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.64 1991/03/06 00:32:59 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	63
+#define SUBVERSION	64
 #endif