From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 10 Aug 2019 21:04:08 +0000 (-0700)
Subject: Fix thinko in previous change.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~94
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ddd6a6ab5644af5716e8b2e4f44d18fd01d68a4a;p=mit-scheme.git

Fix thinko in previous change.
---

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index e2df4e8f6..454d16a1d 100644
--- 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)