From 6ff7394f4cfad826449e6fe4040241c86125b1b1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Dec 1986 18:26:45 +0000
Subject: [PATCH] Same random confusion between `=' and `=='!  C Sux.

---
 v7/src/microcode/bignum.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/bignum.c b/v7/src/microcode/bignum.c
index a1cb62e40..2622aac7d 100644
--- a/v7/src/microcode/bignum.c
+++ b/v7/src/microcode/bignum.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.c,v 5.2 1986/12/17 05:58:31 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.c,v 5.3 1986/12/17 18:26:45 cph Exp $
 
 This file contains the procedures for handling BIGNUM Arithmetic. */
 
@@ -141,8 +141,8 @@ Built_In_Primitive (Prim_Big_To_Fix, 1, "BIG->FIX")
 }
 
 Pointer
-Big_To_Fix (bignum)
-     Pointer bignum;
+Big_To_Fix (bignum_object)
+     Pointer bignum_object;
 {
   fast bigdigit *bptr, *scan;
   fast long result, i;
@@ -152,7 +152,7 @@ Big_To_Fix (bignum)
     return (bignum_object);
   bptr = BIGNUM (Get_Pointer (bignum_object));
   Length = LEN (bptr);
-  if (Length = 0)
+  if (Length == 0)
     return (FIXNUM_0);
   if (Length > FIXNUM_LENGTH_AS_BIGNUM)
     return (bignum_object);
-- 
2.25.1