From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Oct 1988 22:18:46 +0000 (+0000)
Subject: If slashification is turned off, it is still necessary to slashify
X-Git-Tag: 20090517-FFI~12487
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=de8d17930091e5977b3639c8aa9b70ebc58a8370;p=mit-scheme.git

If slashification is turned off, it is still necessary to slashify
non-ASCII characters because the output port probably won't have any
representation for them.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index e894efd92..7c7faca34 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.6 1988/10/15 17:19:29 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.7 1988/10/21 22:18:46 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -272,7 +272,8 @@ MIT in each case. |#
   (*unparse-string (symbol->string symbol)))
 
 (define (unparse/character character)
-  (if *slashify?*
+  (if (or *slashify?*
+	  (not (char-ascii? character)))
       (begin (*unparse-string "#\\")
 	     (*unparse-string (char->name character true)))
       (*unparse-char character)))