From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Oct 2018 06:25:15 +0000 (-0700)
Subject: Change default text I/O format to be UTF-8.
X-Git-Tag: mit-scheme-pucked-9.2.19~2^2~23
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=201249b2b7c24b81c6f20921c8e5937f467272bf;p=mit-scheme.git

Change default text I/O format to be UTF-8.
---

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