Go down boxes too.

This commit is contained in:
Eli Barzilay 2011-05-23 14:04:06 -04:00
parent 7b0f64de72
commit 7f6733b617

View File

@ -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)])