Fix thinko in previous change.

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index 8fead3c48ff572cbdbeddc8136a78de08295e43b..f94297ccbf03e315df92d2a62c8bb334f3d031b0 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)