From ff1f96583d7d6929a33149b30287c9d1f7a12e9a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 13 Jan 2010 15:12:46 +0000
Subject: [PATCH] removed extra depenencies

svn: r17630

original commit: 8838d90cd53cd86fa75de3f573dc89d3f4434fc7
---
 collects/mrlib/matrix-snip.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/mrlib/matrix-snip.ss b/collects/mrlib/matrix-snip.ss
index 54f7af1a..2042effe 100644
--- a/collects/mrlib/matrix-snip.ss
+++ b/collects/mrlib/matrix-snip.ss
@@ -1,7 +1,6 @@
-#lang scheme 
+#lang scheme/base 
 
-(require mzlib/class
-         mzlib/string
+(require scheme/class
          mrlib/cache-image-snip)
 
 (provide visible-matrix%
@@ -70,7 +69,9 @@
     (super-new)
     (define/override (read f)
       (define b (send f get-bytes))
-      (data->snip (read-from-string b (lambda () #f))))
+      (data->snip 
+       (with-handlers ((exn:fail:read? (λ (x) #f)))
+         (read (open-input-string 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)))