From 9358960c461d8115a89fb2b8eda19a6e14541053 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 26 Jan 2017 22:34:03 -0800 Subject: [PATCH] Convert generic I/O to support ustring. --- src/runtime/genio.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.25.1