From 0be8fe65d5fe3b3884a5f6ecf7a32677dff44cda Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Jul 2003 05:14:38 +0000
Subject: [PATCH] Don't use vertical-bar syntax for uninterned symbols when
 *UNPARSE-UNINTERNED-SYMBOLS-BY-NAME?* is true.

---
 v7/src/runtime/unpars.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)))))
-- 
2.25.1