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/version.h b/v7/src/microcode/version.h
index 57f3a96b429e5cbe105f96a2617e846719340ebe..01b4b9f6b7cf66af6a9f5541e39a4c85b49c2f9c 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.72 1989/04/15 19:04:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.73 1989/04/18 16:35:09 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     72
+#define SUBVERSION     73
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index dddf18768ac807cd931a8aaac31bfae3ff2cdd59..94644615a84350170602852e141cd3322c1828a7 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.72 1989/04/15 19:04:30 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.73 1989/04/18 16:35:09 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     72
+#define SUBVERSION     73
 #endif
 
 #ifndef UCODE_TABLES_FILENAME