Don't print internals of promises.

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index 8dda0635df9713615731f787b9fd3e6e70fe32de..a14c047935647555cf15c1e44f72bd0ab0c65dad 100644 (file)
--- 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)))))))
 \f