From 201249b2b7c24b81c6f20921c8e5937f467272bf Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 Sep 2018 23:25:15 -0700
Subject: [PATCH] Change default text I/O format to be UTF-8.

---
 src/runtime/generic-io.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/runtime/generic-io.scm b/src/runtime/generic-io.scm
index 8fc31ceb7..05e702908 100644
--- a/src/runtime/generic-io.scm
+++ b/src/runtime/generic-io.scm
@@ -857,7 +857,7 @@ USA.
   '(iso_8859-1:1987 iso-ir-100 iso_8859-1 latin1 l1 ibm819 cp819 csisolatin1))
 
 (define-coding-aliases 'iso-8859-1
-  '(binary text))
+  '(binary))
 
 (define-coding-aliases 'iso-8859-1
   ;; Treat US-ASCII like ISO-8859-1.
@@ -1348,6 +1348,8 @@ USA.
 
 ;;;; Unicode codecs
 
+(define-coding-alias 'text 'utf-8)
+
 (define-decoder 'utf-8
   (lambda (ib)
     (let ((n (initial-byte->utf8-char-length (peek-byte ib))))
-- 
2.25.1