From 5b9de9d684bbde4f696ab138d7af5022e3794bea Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sun, 8 Nov 1992 04:23:45 +0000
Subject: [PATCH] Remove string->symbol from integrable primitives list. The
 runtime system version now copies the string if the symbol is being interned
 for the first time.  In this way string mutation of the string does not
 affect the symbol.

---
 v7/src/sf/gconst.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index 286fd8411..75ee251a3 100644
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 4.13 1992/02/08 15:10:14 cph Exp $
+$Id: gconst.scm,v 4.14 1992/11/08 04:23:45 jinx Exp $
 
-Copyright (c) 1987-92 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -215,7 +215,7 @@ MIT in each case. |#
     SET-CELL-CONTENTS!
     SET-INTERRUPT-ENABLES!
     SET-STRING-LENGTH!
-    STRING->SYMBOL
+    ;; STRING->SYMBOL ; Runtime version copies the string
     STRING-ALLOCATE
     STRING-HASH
     STRING-HASH-MOD
-- 
2.25.1