From 6a414bd18afb6e53a11601781e2917539a321e1e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 28 Oct 2010 15:31:19 -0500 Subject: [PATCH] fixed some bugs in the way 2htdp/images were marshalled and unmarshalled --- collects/mrlib/image-core.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index 117a1f6555..270fb65d6c 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -345,6 +345,8 @@ has been moved out). (let loop ([sexp sexp]) (cond [(pair? sexp) (cons (loop (car sexp)) (loop (cdr sexp)))] + [(and (immutable? sexp) (hash? sexp)) + (hash-copy sexp)] [(vector? sexp) (if (= (vector-length sexp) 0) (k #f) @@ -1019,7 +1021,7 @@ the mask bitmap and the original bitmap are all together in a single bytes! (update 1) (update 2) ;; don't save the cache - (vector-set! v 6 #f) + (vector-set! v 6 (make-hash)) (recur v port))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;