From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Apr 1989 04:09:26 +0000 (+0000)
Subject: Change `get-primitive-name' to return a string instead of a symbol.
X-Git-Tag: 20090517-FFI~12169
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a5055ac321d599539b7cd8a3ed7a4791c625603;p=mit-scheme.git

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 20a188474..45a962904 100644
--- 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);
 }
 
 /*
diff --git a/v7/src/runtime/udata.scm b/v7/src/runtime/udata.scm
index 106b5b875..0e87dca91 100644
--- 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)