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