- Make the environment abstraction handle all trap objects.

- Make compiled procedures print like #[COMPILED-PROCEDURE #x<datum>]

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 748b78f2b22e65db546a5bf51d6a0f7358f125f3..f5a93978fd643b1d68a5e5511a0fabaf7e14f7eb 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 13.51 1987/06/30 21:14:12 cph Rel $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 13.52 1987/08/01 09:17:54 jinx Rel $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -321,6 +321,14 @@
 (define-type 'PRIMITIVE unparse-primitive-procedure)
 (define-type 'PRIMITIVE-EXTERNAL unparse-primitive-procedure)
 
+(define (unparse-compiled-procedure procedure)
+  (unparse-with-brackets
+   (lambda ()
+     (*unparse-string "COMPILED-PROCEDURE ")
+     (unparse-datum procedure))))
+
+(define-type 'COMPILED-PROCEDURE unparse-compiled-procedure)
+
 (define-type 'ENVIRONMENT
   (lambda (environment)
     (if (lexical-unreferenceable? environment ':PRINT-SELF)