From 96fc721242652b0a75a6a6749eeb436bed90d2f0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 2 Mar 2006 20:53:02 +0000 Subject: [PATCH] Fix behavior of *PP-UNINTERNED-SYMBOLS-BY-NAME* and *UNPARSE-UNINTERNED-SYMBOLS-BY-NAME?*. --- v7/src/runtime/pp.scm | 6 ++++-- v7/src/runtime/unpars.scm | 5 +++-- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm index 558f3eb5b..bcf1e1f57 100644 --- 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 b24654966..e83675cae 100644 --- 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))))) -- 2.25.1