[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Don't mutate read-only string in ports test
From: |
Mike Gran |
Subject: |
[Guile-commits] 01/01: Don't mutate read-only string in ports test |
Date: |
Sat, 9 Feb 2019 12:45:25 -0500 (EST) |
mike121 pushed a commit to branch stable-2.2
in repository guile.
commit 552f007e91a97f136aad1b22918688b61d03a4a3
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)