suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Robby Findler 2011-12-02 16:38:08 -06:00
parent 2e4d4e21ca
commit ce7523f01f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/redex/private/sexp-diffs.rkt
View File

@ -64,6 +64,9 @@
[(symbol? s) (make-wrap s)] [(symbol? s) (make-wrap s)]
[(null? s) (make-wrap s)] [(null? s) (make-wrap s)]
[(boolean? 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]))) [else s])))
(define-struct wrap (content) #:inspector (make-inspector)) (define-struct wrap (content) #:inspector (make-inspector))