From ddbb110e8767755bef5100d6f0b66d5038a3b828 Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Tue, 4 Apr 2017 08:56:34 -0700 Subject: [PATCH] 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 007f56605..25e387cb8 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)