[Guile-commits] 06/07: ports test tries to mutate a read-only string

[Mike Gran]

mike121 pushed a commit to branch wip-cygwin-guile-2.2
in repository guile.

commit ddbb110e8767755bef5100d6f0b66d5038a3b828
Author: Michael Gran <address@hidden>
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)