The encore's cpp doesn't like => in strings.

diff --git a/v7/src/microcode/bignum.h b/v7/src/microcode/bignum.h
index f681b95ddd261c0b76b98083aee781e50d786d71..4da4ec1d20cd177a0c1ce7986e70f16638837562 100644 (file)
--- 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 7ea9b13a11bfcf13afe027d9e96c41bca3979644..1472bba655bea48a60d1c8726f0b71dfce9ae0e6 100644 (file)
--- 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;
 }