From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 2 Nov 2018 03:31:37 +0000 (-0700)
Subject: Don't print internals of promises.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~124
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=18f91ae67d53cc0b77c68a958f55b571e030c1dc;p=mit-scheme.git

Don't print internals of promises.
---

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index 8dda0635d..a14c04793 100644
--- a/src/runtime/pp.scm
+++ b/src/runtime/pp.scm
@@ -196,7 +196,9 @@ USA.
        `((weak-car ,(weak-car wp))
 	 (weak-cdr ,(weak-cdr wp)))))
 
-   (define-pp-describer cell?
+   (define-pp-describer (lambda (object)
+			  (and (cell? object)
+			       (not (promise? object))))
      (lambda (cell)
        `((contents ,(cell-contents cell)))))))