From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 2 Dec 2018 01:56:52 +0000 (+0000)
Subject: Make pp's job easier in this test.  (Still busted.)
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~58
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=335259fbe0790f643ab2dbf2f1b6b0c26a0f7fde;p=mit-scheme.git

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 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#)")))))