From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 15 Aug 1988 21:57:18 +0000 (+0000)
Subject: Add parameterization to print uninterned symbols by name.
X-Git-Tag: 20090517-FFI~12613
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e88b47e455b86e069bd7f0d08460762c5137fd1a;p=mit-scheme.git

Add parameterization to print uninterned symbols by name.
---

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index 572f1a079..3d7be2b3d 100644
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pp.scm,v 14.3 1988/08/05 20:48:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pp.scm,v 14.4 1988/08/15 21:57:18 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -56,6 +56,7 @@ MIT in each case. |#
 
 (define *named-lambda->define?* true)
 (define *pp-primitives-by-name* true)
+(define *pp-uninterned-symbols-by-name* true)
 (define *forced-x-size* false)
 
 (define (pp object #!optional port as-code?)
@@ -342,7 +343,10 @@ MIT in each case. |#
 
 (define walk-dispatcher)
 (define (default/walk-dispatcher x)
-  (cond ((object-type? (ucode-type interned-symbol) x) identity-procedure)
+  (cond ((if *pp-uninterned-symbols-by-name*
+	     (symbol? x)
+	     (object-type? (ucode-type interned-symbol) x))
+	 identity-procedure)
 	((primitive-procedure? x) walk-primitive)
 	((and (pair? x)
 	      (not (unparse-list/unparser x)))