From 0a0c9485aa78ee8f082fe28efa8ff7f81624ab40 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 11 Apr 1987 15:17:09 +0000
Subject: [PATCH] The encore's cpp doesn't like => in strings.

---
 v7/src/microcode/bignum.h  | 4 ++--
 v7/src/microcode/fasload.c | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/v7/src/microcode/bignum.h b/v7/src/microcode/bignum.h
index f681b95dd..4da4ec1d2 100644
--- a/v7/src/microcode/bignum.h
+++ b/v7/src/microcode/bignum.h
@@ -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.h,v 9.22 1987/04/06 12:49:05 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bignum.h,v 9.23 1987/04/11 15:17:09 jinx Rel $
 
    Head file for bignums.  This is shared by bignum.c and generic.c. 
 */
@@ -39,7 +39,7 @@ MIT in each case. */
 #define Debug_Test(Res)						\
 { Pointer R = Make_Pointer(TC_BIG_FIXNUM, Res);			\
   if (Nth_Vector_Loc(R, Vector_Length(R)) != (Free-1))		\
-  { printf("\nResult=%x => %x %x %x, Length=%d, Free=%x\n",	\
+  { printf("\nResult=%x -> %x %x %x, Length=%d, Free=%x\n",	\
            R, Fast_Vector_Ref(R, 0),				\
            Fast_Vector_Ref(R, 1), Fast_Vector_Ref(R, 2),	\
            Vector_Length(R), Free);				\
diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 7ea9b13a1..1472bba65 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.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/fasload.c,v 9.23 1987/04/03 00:12:33 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.24 1987/04/11 15:16:37 jinx Exp $
 
    The "fast loader" which reads in and relocates binary files and then
    interns symbols.  It is called with one argument: the (character
@@ -71,7 +71,7 @@ long String_Length;
     C = String_Ptr;
     for (i=0; i < String_Length; i++, C++)
       print_char(*C);
-    printf(" => 0x%x\n", Value);
+    printf(" -> 0x%x\n", Value);
   }
   return Value;
 }
@@ -312,7 +312,7 @@ long P;
     }
     Result = (Pointer *) 0;
   }
-  if (Reloc_Debug) printf("0x%06x => 0x%06x\n", P, Result);
+  if (Reloc_Debug) printf("0x%06x -> 0x%06x\n", P, Result);
   return Result;
 }
 
-- 
2.25.1