Make pp's job easier in this test. (Still busted.)

diff --git a/tests/runtime/test-pp.scm b/tests/runtime/test-pp.scm
index 300a7728a00b9a6b2906998373a1c2cace9a17db..69893f0657838aaf5c54612829e59252a57e244c 100644 (file)
--- 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#)")))))