From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 06:34:03 +0000 (-0800)
Subject: Convert generic I/O to support ustring.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~57
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9358960c461d8115a89fb2b8eda19a6e14541053;p=mit-scheme.git

Convert generic I/O to support ustring.
---

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index eb039fbf4..ed2cd6f95 100644
--- 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)))