more atoms can be shared now, so wrap 'em up

This commit is contained in:
Robby Findler 2011-12-02 16:38:08 -06:00
parent 2e4d4e21ca
commit ce7523f01f

View File

@ -64,6 +64,9 @@
[(symbol? s) (make-wrap s)]
[(null? s) (make-wrap s)]
[(boolean? s) (make-wrap s)]
[(string? s) (make-wrap s)]
[(bytes? s) (make-wrap s)]
[(regexp? s) (make-wrap s)]
[else s])))
(define-struct wrap (content) #:inspector (make-inspector))