suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix hide sharing

Browse Source 
svn: r8111
This commit is contained in:
Eli Barzilay 2007-12-24 07:41:01 +00:00
parent cd3cfdaa07
commit fe3e4042cd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/lazy/promise.ss
View File

@ -35,7 +35,7 @@
(let ([fmt (if write? ",~s" ",~a")]) (let ([fmt (if write? ",~s" ",~a")])
(for-each (lambda (x) (fprintf port fmt x)) (cdr p)))) (for-each (lambda (x) (fprintf port fmt x)) (cdr p))))
(display ">" port)] (display ">" port)]
[(promise? p) (loop p)] ; hide sharing [(promise? p) (loop (p:ref p))] ; hide sharing
[(not p) (display "#<promise*active>" port)] [(not p) (display "#<promise*active>" port)]
[else (error 'promise-printer "bad promise value: ~e" p)])))] [else (error 'promise-printer "bad promise value: ~e" p)])))]
[(s:promise promise promise? promise-ref promise-set!) [(s:promise promise promise? promise-ref promise-set!)