From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Dec 2001 03:31:25 +0000 (+0000)
Subject: Change references to LOCAL-ASSIGNMENT and LEXICAL-* to instead use
X-Git-Tag: 20090517-FFI~2363
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c0699fd27db374f2e58924248e0dc2739a39039;p=mit-scheme.git

Change references to LOCAL-ASSIGNMENT and LEXICAL-* to instead use
procedures in the environment abstraction.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index df1966b72..239f62904 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.48 2001/06/15 20:38:51 cph Exp $
+$Id: unpars.scm,v 14.49 2001/12/19 03:31:25 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -613,9 +613,13 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;;;; Miscellaneous
 
 (define (unparse/environment environment)
-  (if (lexical-unreferenceable? environment ':PRINT-SELF)
-      (unparse/default environment)
-      ((lexical-reference environment ':PRINT-SELF))))
+  (let ((print-self
+	 (ignore-errors
+	  (lambda ()
+	    (environment-lookup environment ':PRINT-SELF)))))
+    (if (and (procedure? print-self) (procedure-arity-valid? print-self 0))
+	(print-self)
+	(unparse/default environment))))
 
 (define (unparse/variable variable)
   (*unparse-with-brackets 'VARIABLE variable