Change `get-primitive-name' to return a string instead of a symbol.

This concentrates knowledge of symbols' internal case in the runtime
system.

diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index 20a188474520a8e5c89647e04666e962ddcabf70..45a962904b73f48c95ea34941ddc62f0048e8c43 100644 (file)
--- a/v7/src/microcode/primutl.c
+++ b/v7/src/microcode/primutl.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/primutl.c,v 9.47 1989/04/15 19:04:24 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/primutl.c,v 9.48 1989/04/18 04:09:26 cph Exp $
  *
  * This file contains the support routines for mapping primitive names
  * to numbers within the microcode.  Primitives are written in C
@@ -341,7 +341,7 @@ primitive_name(code)
     scheme_string = User_Vector_Ref(Undefined_Primitives,
                                    (code - MAX_PRIMITIVE));
   }
-  return (string_to_symbol(scheme_string));
+  return (scheme_string);
 }
 \f
 /*

diff --git a/v7/src/runtime/udata.scm b/v7/src/runtime/udata.scm
index 106b5b875b91ba6ace338451e263498291ed87ea..0e87dca91e2d004ed4de9893bcfb84054dbc1830 100644 (file)
--- a/v7/src/runtime/udata.scm
+++ b/v7/src/runtime/udata.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/udata.scm,v 14.6 1988/12/30 06:43:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/udata.scm,v 14.7 1989/04/18 04:09:04 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -314,8 +314,9 @@ that you cannot just vector-ref into.
                                           false))
 
 (define (primitive-procedure-name primitive)
-  ((ucode-primitive get-primitive-name)
-   (object-datum (guarantee-primitive-procedure primitive))))
+  (intern
+   ((ucode-primitive get-primitive-name)
+    (guarantee-primitive-procedure primitive))))
 
 (define (compound-procedure? object)
   (or (object-type? (ucode-type procedure) object)