From 7737b277d29e7c54dac236c51f811753417c51bd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 13 Nov 2018 20:47:46 -0800
Subject: [PATCH] Change default port char-set to ASCII.

---
 src/runtime/textual-port.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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