ensure unicode-capable rnrs string ports

* module/rnrs/io/ports.scm (open-string-input-port):
  (open-string-output-port): Ensure that the ports are unicode-capable
  by binding %default-port-encoding to "UTF-8".

diff --git a/module/rnrs/io/ports.scm b/module/rnrs/io/ports.scm
index 4916bba..04dabe6 100644 (file)
--- a/module/rnrs/io/ports.scm
+++ b/module/rnrs/io/ports.scm
@@ -110,12 +110,14 @@ read from/written to in @var{port}."
 
 (define (open-string-input-port str)
   "Open an input port that will read from @var{str}."
-  (open-input-string str))
+  (with-fluids ((%default-port-encoding "UTF-8"))
+    (open-input-string str)))
 
 (define (open-string-output-port)
   "Return two values: an output port that will collect characters written to it
 as a string, and a thunk to retrieve the characters associated with that port."
-  (let ((port (open-output-string)))
+  (let ((port (with-fluids ((%default-port-encoding "UTF-8"))
+                (open-output-string))))
     (values port
             (lambda () (get-output-string port)))))