From 335259fbe0790f643ab2dbf2f1b6b0c26a0f7fde Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 2 Dec 2018 01:56:52 +0000
Subject: [PATCH] Make pp's job easier in this test.  (Still busted.)

---
 tests/runtime/test-pp.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/tests/runtime/test-pp.scm b/tests/runtime/test-pp.scm
index 300a7728a..69893f065 100644
--- a/tests/runtime/test-pp.scm
+++ b/tests/runtime/test-pp.scm
@@ -73,11 +73,10 @@ USA.
   (lambda ()
     (define (doit)
       (let ((c (cons 0 0)))
-        (set-car! c c)
         (set-cdr! c c)
         (call-with-output-string (lambda (p) (pp c p)))))
     (expect-failure
      (lambda ()
        (assert-eqv
         (carefully doit (lambda () 'stack-overflow) (lambda () 'timeout))
-        "#0=(#0# . #0#)")))))
+        "#0=(0 . #0#)")))))
-- 
2.25.1