From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Jul 2003 05:14:38 +0000 (+0000)
Subject: Don't use vertical-bar syntax for uninterned symbols when
X-Git-Tag: 20090517-FFI~1844
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0be8fe65d5fe3b3884a5f6ecf7a32677dff44cda;p=mit-scheme.git

Don't use vertical-bar syntax for uninterned symbols when
*UNPARSE-UNINTERNED-SYMBOLS-BY-NAME?* is true.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index a90fbc39c..c4982fb17 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.53 2003/07/30 04:37:22 cph Exp $
+$Id: unpars.scm,v 14.54 2003/07/30 05:14:38 cph Exp $
 
 Copyright 1986,1987,1990,1991,1992,1995 Massachusetts Institute of Technology
 Copyright 1996,2001,2002,2003 Massachusetts Institute of Technology
@@ -332,7 +332,7 @@ USA.
 
 (define (unparse/uninterned-symbol symbol)
   (if *unparse-uninterned-symbols-by-name?*
-      (unparse-symbol symbol)
+      (*unparse-string (symbol-name symbol))
       (*unparse-with-brackets 'UNINTERNED-SYMBOL symbol
 	(lambda ()
 	  (unparse-symbol symbol)))))