Change default port char-set to ASCII.

diff --git a/src/runtime/textual-port.scm b/src/runtime/textual-port.scm
index 40977077d736e343d978fc11627d3c45a511b994..1fec4ab42c7e07c27111a67d1617e71a97ebf188 100644 (file)
--- 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?)))