From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 1 Aug 1987 09:17:54 +0000 (+0000)
Subject: - Make the environment abstraction handle all trap objects.
X-Git-Tag: 20090517-FFI~13194
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a289ae80d599fe6898ca7df09435eaccb7dc607;p=mit-scheme.git

- 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 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)