[Guile-commits] 34/55: Don't mutate read-only string in ports test

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 9a7e66ecebffb54f739fa5b28f4ec65ac48c0783
Author: Mike Gran <address@hidden>
Date:   Sat Feb 9 09:44:28 2019 -0800

    Don't mutate read-only string in ports test
    
    * test-suite/tests/ports.test ("valid wide mode string"): modified
---
 test-suite/tests/ports.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 6fe38d9..0ade4d4 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -2,7 +2,7 @@
 ;;;; Jim Blandy <address@hidden> --- May 1999
 ;;;;
 ;;;;   Copyright (C) 1999, 2001, 2004, 2006, 2007, 2009, 2010,
-;;;;      2011, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
+;;;;      2011, 2012, 2013, 2014, 2015, 2017, 2019 Free Software Foundation, 
Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -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)