diff options
Diffstat (limited to 'test-suite/tests/r7rs.test')
-rw-r--r-- | test-suite/tests/r7rs.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test index 0914f0c5e..1cc8cd31e 100644 --- a/test-suite/tests/r7rs.test +++ b/test-suite/tests/r7rs.test @@ -2171,7 +2171,7 @@ (let ((out (open-output-string)) (x (list 1))) (set-cdr! x x) - (write x out) + (write-shared x out) (get-output-string out)) ;; labels not guaranteed to be 0 indexed, spacing may differ '("#0=(1 . #0#)" "#1=(1 . #1#)")) |