When unparsing `manifest-closure' objects, use `compiled-procedure' as

the type name.

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 5f57347fa1ebd64fe3521e30549a0699b40deb09..353e3743b01c904558550de36d4a3b559b9365c1 100644 (file)
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.4 1988/07/15 22:31:04 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.5 1988/07/16 18:54:39 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -450,9 +450,7 @@ MIT in each case. |#
   ;; middle of the other stuff.
   (let ((unparse-it
         (lambda (thunk)
-          (*unparse-with-brackets (compiled-procedure-type entry)
-                                  entry
-                                  thunk))))
+          (*unparse-with-brackets 'COMPILED-PROCEDURE entry thunk))))
     (compiled-entry->name entry
       (lambda (string)
        (unparse-it
@@ -470,12 +468,6 @@ MIT in each case. |#
             (lambda () 
               (*unparse-datum entry)))))))))
 
-(define (compiled-procedure-type entry)
-  (if (compiled-code-block/manifest-closure?
-       (compiled-code-address->block entry))
-      'MANIFEST-CLOSURE
-      'COMPILED-PROCEDURE))
-
 (define (unparse-compiled-entry entry)
   (let ((unparse-it
         (lambda (thunk)

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 12401984b3b709952d2aa03fad9e3e82c1620528..d7268b27ec0c7e451aa2b96a4d856e8c7c9e8c4e 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.13 1988/07/15 22:33:49 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.14 1988/07/16 18:54:56 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
                     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 13))
+  (add-identification! "Runtime" 14 14))
 
 (define microcode-system)