From 9a289ae80d599fe6898ca7df09435eaccb7dc607 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 1 Aug 1987 09:17:54 +0000
Subject: [PATCH] - Make the environment abstraction handle all trap objects. -
 Make compiled procedures print like #[COMPILED-PROCEDURE #x<datum>]

---
 v7/src/runtime/unpars.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 748b78f2b..f5a93978f 100644
--- 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)
-- 
2.25.1