mike121 pushed a commit to branch wip-cygwin-guile-2.2 in repository guile.
commit ddbb110e8767755bef5100d6f0b66d5038a3b828 Author: Michael Gran <[email protected]> Date: Tue Apr 4 08:56:34 2017 -0700 ports test tries to mutate a read-only string * test-suite/tests/ports.test ("valid wide mode string"): copy string --- test-suite/tests/ports.test | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 007f566..25e387c 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -315,7 +315,7 @@ (pass-if "valid wide mode string" ;; Pass 'open-file' a valid mode string, but as a wide string. - (let ((mode "λ")) + (let ((mode (string-copy "λ"))) (string-set! mode 0 #\r) (let ((port (open-file "/dev/null" mode))) (and (input-port? port)
