Fix behavior of *PP-UNINTERNED-SYMBOLS-BY-NAME* and

*UNPARSE-UNINTERNED-SYMBOLS-BY-NAME?*.

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index 558f3eb5b989cb5509bf80d135efe85fa6204361..bcf1e1f570ef9c8afd91a65be2d496b44d305024 100644 (file)
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pp.scm,v 14.49 2006/01/31 06:41:43 cph Exp $
+$Id: pp.scm,v 14.50 2006/03/02 20:52:57 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,1995,1996,1999 Massachusetts Institute of Technology
@@ -217,7 +217,9 @@ USA.
 
 (define (pp-top-level expression port as-code? indentation list-depth)
   (fluid-let ((x-size (- (or *pp-forced-x-size* (output-port/x-size port)) 1))
-             (output-port port))
+             (output-port port)
+             (*unparse-uninterned-symbols-by-name?*
+              *pp-uninterned-symbols-by-name*))
     (let* ((numerical-walk
            (if *pp-avoid-circularity?*
                numerical-walk-avoid-circularities

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index b24654966571eb0813c3416f2849c60a9f06869a..e83675cae945a43af4b1be16ccf0c77cd422b33e 100644 (file)
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,9 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.64 2005/07/19 03:49:26 cph Exp $
+$Id: unpars.scm,v 14.65 2006/03/02 20:53:02 cph Exp $
 
 Copyright 1986,1987,1990,1991,1992,1995 Massachusetts Institute of Technology
 Copyright 1996,2001,2002,2003,2004,2005 Massachusetts Institute of Technology
+Copyright 2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -331,7 +332,7 @@ USA.
 
 (define (unparse/uninterned-symbol symbol)
   (if *unparse-uninterned-symbols-by-name?*
-      (*unparse-string (symbol-name symbol))
+      (unparse-symbol symbol)
       (*unparse-with-brackets 'UNINTERNED-SYMBOL symbol
        (lambda ()
          (unparse-symbol symbol)))))