diff options
| author | Mike Gran <spk121@yahoo.com> | 2019-02-09 09:44:28 -0800 |
|---|---|---|
| committer | Mike Gran <spk121@yahoo.com> | 2019-02-09 09:44:28 -0800 |
| commit | 552f007e91a97f136aad1b22918688b61d03a4a3 (patch) | |
| tree | b78b2980605650aaf86ad3aa818f825dbf9c95c4 /test-suite | |
| parent | 45e4ace6603e00b297e6542362273041aebe7305 (diff) | |
Don't mutate read-only string in ports test
* test-suite/tests/ports.test ("valid wide mode string"): modified
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/ports.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 6fe38d953..0ade4d426 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -2,7 +2,7 @@ ;;;; Jim Blandy <jimb@red-bean.com> --- 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) |