Convert generic I/O to support ustring.

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index eb039fbf4947e4bacae80778a0fe7a15d691b4ba..ed2cd6f95526fbce534b0c1eb901e81523cdae10 100644 (file)
--- a/src/runtime/genio.scm
+++ b/src/runtime/genio.scm
@@ -239,7 +239,7 @@ USA.
          (cond ((not char) #f)
                ((eof-object? char) (fix:- index start))
                (else
-                (xstring-set! string index char)
+                (ustring-set! string index char)
                 (loop (fix:+ index 1)))))
        (fix:- end start))))
 
@@ -272,7 +272,7 @@ USA.
   (let ((ob (port-output-buffer port)))
     (let loop ((index start))
       (if (fix:< index end)
-         (let ((n (write-next-char ob (xstring-ref string index))))
+         (let ((n (write-next-char ob (ustring-ref string index))))
            (cond ((and n (fix:> n 0)) (loop (fix:+ index 1)))
                  ((fix:< start index) (fix:- index start))
                  (else n)))