Go down boxes too.
original commit: 7f6733b61706fb421669a198b0701869e3345093
This commit is contained in:
parent
d1019505c9
commit
58183ac740
|
@ -117,6 +117,7 @@
|
||||||
;; delayed values
|
;; delayed values
|
||||||
[(and (procedure? x) (procedure-arity-includes? x 0)) (loop (x))]
|
[(and (procedure? x) (procedure-arity-includes? x 0)) (loop (x))]
|
||||||
[(promise? x) (loop (force x))]
|
[(promise? x) (loop (force x))]
|
||||||
|
[(box? x) (loop (unbox x))]
|
||||||
;; special output wrappers
|
;; special output wrappers
|
||||||
[(special? x)
|
[(special? x)
|
||||||
(let ([c (special-contents x)])
|
(let ([c (special-contents x)])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user