From ce7523f01fd9706dbc001c027dbc0185341705f2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 2 Dec 2011 16:38:08 -0600 Subject: [PATCH] more atoms can be shared now, so wrap 'em up --- collects/redex/private/sexp-diffs.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/collects/redex/private/sexp-diffs.rkt b/collects/redex/private/sexp-diffs.rkt index 9bdc0768fa..af311ecbcc 100644 --- a/collects/redex/private/sexp-diffs.rkt +++ b/collects/redex/private/sexp-diffs.rkt @@ -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))