diff options
| author | Michael Gran <spk121@yahoo.com> | 2017-04-04 08:56:34 -0700 |
|---|---|---|
| committer | Michael Gran <spk121@yahoo.com> | 2017-04-04 08:56:34 -0700 |
| commit | ddbb110e8767755bef5100d6f0b66d5038a3b828 (patch) | |
| tree | 7eb175522f87010bee5cb5955aa43cac416f207a | |
| parent | 6dfb48d4164889f682350e04699497ca1c84d65a (diff) | |
| download | guile-ddbb110e8767755bef5100d6f0b66d5038a3b828.tar.gz | |
ports test tries to mutate a read-only string
* test-suite/tests/ports.test ("valid wide mode string"): copy string
| -rw-r--r-- | test-suite/tests/ports.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 007f56605..25e387cb8 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) |