Go down boxes too.

original commit: 7f6733b61706fb421669a198b0701869e3345093
2011-05-23 14:04:06 -04:00 · 2011-05-23 14:04:06 -04:00 · 58183ac740
commit 58183ac740
parent d1019505c9
1 changed files with 1 additions and 0 deletions
--- a/collects/scribble/text/output.rkt
+++ b/collects/scribble/text/output.rkt
@ -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)])