Fix thinko in previous change.

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index e2df4e8f6e02cf5217768ba1100310c43a010472..454d16a1dcd5b40842f12f1314dda23d85ae1f53 100644 (file)
--- a/src/runtime/printer.scm
+++ b/src/runtime/printer.scm
@@ -283,10 +283,11 @@ USA.
                                 (walk (safe-vector-ref object i))
                                 (loop (+ i 1)))))))
                   (maybe-unmark! object))))
-           ((and (promise? object) (promise-forced? object))
+           ((promise? object)
             (if (mark! object)
                 (begin
-                  (walk (promise-value object))
+                  (if (promise-forced? object)
+                      (walk (promise-value object)))
                   (maybe-unmark! object))))
            ((%tagged-object? object)
             (if (mark! object)