Hi, "Andy Wingo" <wi...@pobox.com> writes:
> +(define (open-string-input-port str) > + "Open an input port that will read from @var{str}." > + (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))) > + (values port > + (lambda () (get-output-string port))))) I think that by default the opens should wrapped in a (with-fluids ((%default-port-encoding "UTF-8")) (open-*-string ...)) so that they are Unicode-capable (info "(guile) String Ports"). Thanks, Ludo’.