From fc8f84d6169276457be9adbbc7ed22c1e0d182d3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 13 Jan 2010 20:18:48 +0000 Subject: [PATCH] fixed a bug I introduced svn: r17638 --- collects/mrlib/matrix-snip.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/matrix-snip.ss b/collects/mrlib/matrix-snip.ss index 2042effe20..ff6d5bd4ea 100644 --- a/collects/mrlib/matrix-snip.ss +++ b/collects/mrlib/matrix-snip.ss @@ -1,6 +1,7 @@ #lang scheme/base (require scheme/class + (prefix-in scheme: (only-in scheme/base read)) mrlib/cache-image-snip) (provide visible-matrix% @@ -70,8 +71,10 @@ (define/override (read f) (define b (send f get-bytes)) (data->snip - (with-handlers ((exn:fail:read? (λ (x) #f))) - (read (open-input-string b))))) + (and b + (not (equal? b #"")) + (with-handlers ((exn:fail:read? (λ (x) #f))) + (scheme:read (open-input-bytes b)))))) (define/override (data->snip data) (define _ (unless data (error 'read "in matrix-snip-class% failed"))) (define new-cache-image-snip (super data->snip (cadr data)))