From 143ba32dcc597ee2b88fe03418a813d7543b3b1f Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 27 Aug 1991 19:36:35 +0000
Subject: [PATCH] Prunning a fossil that had a typo and was causing some C
 compilers to barf.

---
 v7/src/microcode/psbtobin.c | 10 ++++++++--
 v8/src/microcode/psbtobin.c | 10 ++++++++--
 2 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index 4b13097a8..c47ae3322 100644
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.44 1991/07/03 01:32:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.45 1991/08/27 19:36:35 jinx Exp $
 
 Copyright (c) 1987-91 Massachusetts Institute of Technology
 
@@ -609,6 +609,10 @@ DEFUN (Move_Memory, (From, N, To),
 
 #endif
 
+#if false
+
+/* This appears to be a fossil. */
+
 void
 DEFUN (Relocate_Objects, (from, how_many, disp),
        fast SCHEME_OBJECT *from AND
@@ -630,7 +634,7 @@ DEFUN (Relocate_Objects, (from, how_many, disp),
       case TC_BIG_FIXNUM:
       case TC_BIG_FLONUM:
       case TC_CHARACTER_STRING:
-	*from++ ==
+	*from++ =
 	  (OBJECT_NEW_DATUM ((*from), (disp + (OBJECT_DATUM (*from)))));
 	break;
 
@@ -644,6 +648,8 @@ DEFUN (Relocate_Objects, (from, how_many, disp),
   }
   return;
 }
+
+#endif
 
 #define Relocate_Into(Where, Addr)					\
 {									\
diff --git a/v8/src/microcode/psbtobin.c b/v8/src/microcode/psbtobin.c
index 008ab4639..88801fe15 100644
--- a/v8/src/microcode/psbtobin.c
+++ b/v8/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.44 1991/07/03 01:32:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.45 1991/08/27 19:36:35 jinx Exp $
 
 Copyright (c) 1987-91 Massachusetts Institute of Technology
 
@@ -609,6 +609,10 @@ DEFUN (Move_Memory, (From, N, To),
 
 #endif
 
+#if false
+
+/* This appears to be a fossil. */
+
 void
 DEFUN (Relocate_Objects, (from, how_many, disp),
        fast SCHEME_OBJECT *from AND
@@ -630,7 +634,7 @@ DEFUN (Relocate_Objects, (from, how_many, disp),
       case TC_BIG_FIXNUM:
       case TC_BIG_FLONUM:
       case TC_CHARACTER_STRING:
-	*from++ ==
+	*from++ =
 	  (OBJECT_NEW_DATUM ((*from), (disp + (OBJECT_DATUM (*from)))));
 	break;
 
@@ -644,6 +648,8 @@ DEFUN (Relocate_Objects, (from, how_many, disp),
   }
   return;
 }
+
+#endif
 
 #define Relocate_Into(Where, Addr)					\
 {									\
-- 
2.25.1