From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 16 Apr 1987 15:30:25 +0000 (+0000)
Subject: Eliminate reference to TC_STRING
X-Git-Tag: 20090517-FFI~13625
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e181d8c351b016037fb44d880be6c61f7dff3fa8;p=mit-scheme.git

Eliminate reference to TC_STRING
---

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index f9656968f..d7fe0c671 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.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/Attic/bintopsb.c,v 9.24 1987/04/16 02:05:24 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.25 1987/04/16 15:30:25 jinx Exp $
  *
  * This File contains the code to translate internal format binary
  * files to portable format.
@@ -133,7 +133,7 @@ print_a_char(c, name)
     Mem_Base[(Scn)] = Make_Non_Pointer((Code), (Obj));			\
     *Old_Address++ = Make_Non_Pointer(TC_BROKEN_HEART, (Obj));		\
     (Obj) += 1;								\
-    *(FObj)++ = Make_Non_Pointer(TC_STRING, 0);				\
+    *(FObj)++ = Make_Non_Pointer(TC_CHARACTER_STRING, 0);		\
     *(FObj)++ = Old_Contents;						\
     i = Get_Integer(Old_Contents);					\
     NStrings += 1;							\
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 6ed1f7fa0..db968577e 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.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/v8/src/microcode/bintopsb.c,v 9.24 1987/04/16 02:05:24 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.25 1987/04/16 15:30:25 jinx Exp $
  *
  * This File contains the code to translate internal format binary
  * files to portable format.
@@ -133,7 +133,7 @@ print_a_char(c, name)
     Mem_Base[(Scn)] = Make_Non_Pointer((Code), (Obj));			\
     *Old_Address++ = Make_Non_Pointer(TC_BROKEN_HEART, (Obj));		\
     (Obj) += 1;								\
-    *(FObj)++ = Make_Non_Pointer(TC_STRING, 0);				\
+    *(FObj)++ = Make_Non_Pointer(TC_CHARACTER_STRING, 0);		\
     *(FObj)++ = Old_Contents;						\
     i = Get_Integer(Old_Contents);					\
     NStrings += 1;							\