From fe3e4042cdb2ee61ee49896f54869523a8e8770c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 24 Dec 2007 07:41:01 +0000
Subject: [PATCH] fix hide sharing

svn: r8111
---
 collects/lazy/promise.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/lazy/promise.ss b/collects/lazy/promise.ss
index d431bbbc05..762344cc06 100644
--- a/collects/lazy/promise.ss
+++ b/collects/lazy/promise.ss
@@ -35,7 +35,7 @@
                    (let ([fmt (if write? ",~s" ",~a")])
                      (for-each (lambda (x) (fprintf port fmt x)) (cdr p))))
                  (display ">" port)]
-                [(promise? p) (loop p)] ; hide sharing
+                [(promise? p) (loop (p:ref p))] ; hide sharing
                 [(not p) (display "#<promise*active>" port)]
                 [else (error 'promise-printer "bad promise value: ~e" p)])))]
          [(s:promise promise promise? promise-ref promise-set!)