From 1637be3f440c12effb3b6a371a2b536dc13ffac5 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 4 Aug 1994 00:25:28 +0000
Subject: [PATCH] Added *unparse-with-addresses?* flag for default unparser
method.
---
v7/src/runtime/unpars.scm | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 2975744a7..d8f5a6ffd 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: unpars.scm,v 14.34 1994/03/24 18:29:08 gjr Exp $
+$Id: unpars.scm,v 14.35 1994/08/04 00:25:28 adams Exp $
Copyright (c) 1988-1994 Massachusetts Institute of Technology
@@ -53,6 +53,7 @@ MIT in each case. |#
(set! *unparse-disambiguate-null-as-itself?* true)
(set! *unparse-disambiguate-null-lambda-list?* false)
(set! *unparse-compound-procedure-names?* true)
+ (set! *unparse-with-addresses?* false)
(set! system-global-unparser-table (make-system-global-unparser-table))
(set! *default-list-depth* 0)
(set-current-unparser-table! system-global-unparser-table))
@@ -67,6 +68,7 @@ MIT in each case. |#
(define *unparse-disambiguate-null-as-itself?*)
(define *unparse-disambiguate-null-lambda-list?*)
(define *unparse-compound-procedure-names?*)
+(define *unparse-with-addresses?*)
(define system-global-unparser-table)
(define *default-list-depth*)
(define *current-unparser-table*)
@@ -252,7 +254,10 @@ MIT in each case. |#
(let ((type (user-object-type object)))
(case ((ucode-primitive primitive-object-gc-type 1) object)
((1 2 3 4 -3 -4) ; cell pair triple quad vector compiled
- (*unparse-with-brackets type object false))
+ (*unparse-with-brackets type object
+ (and *unparse-with-addresses?*
+ (lambda ()
+ (*unparse-datum object)))))
((0) ; non pointer
(*unparse-with-brackets type object
(lambda ()
--
2.25.1