From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Nov 2018 04:47:46 +0000 (-0800)
Subject: Change default port char-set to ASCII.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~97
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7737b277d29e7c54dac236c51f811753417c51bd;p=mit-scheme.git

Change default port char-set to ASCII.
---

diff --git a/src/runtime/textual-port.scm b/src/runtime/textual-port.scm
index 40977077d..1fec4ab42 100644
--- a/src/runtime/textual-port.scm
+++ b/src/runtime/textual-port.scm
@@ -547,7 +547,7 @@ USA.
   (let ((operation (textual-port-operation port 'char-set)))
     (if operation
 	(operation port)
-	char-set:iso-8859-1)))
+	char-set:ascii)))
 
 (define (port/supports-coding? port)
   (let ((operation (textual-port-operation port 'supports-coding?)))