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 8fc31ceb758706303c1ac1c13ec805c69bbb0751..05e702908e6e72f0a551042f4ebd3c64e1b933b1 100644 (file)
--- 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.
 \f
 ;;;; Unicode codecs
 
+(define-coding-alias 'text 'utf-8)
+
 (define-decoder 'utf-8
   (lambda (ib)
     (let ((n (initial-byte->utf8-char-length (peek-byte ib))))