From 552f007e91a97f136aad1b22918688b61d03a4a3 Mon Sep 17 00:00:00 2001 From: Mike Gran Date: Sat, 9 Feb 2019 09:44:28 -0800 Subject: 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(-) (limited to 'test-suite') 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 --- 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) -- cgit v1.2.3