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

removed extra depenencies

Browse Source 
svn: r17630
This commit is contained in:
Robby Findler 2010-01-13 15:12:46 +00:00
parent fbe29fa7e2
commit 8838d90cd5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mrlib/matrix-snip.ss
View File

@ -1,7 +1,6 @@
#lang scheme #lang scheme/base
(require mzlib/class (require scheme/class
mzlib/string
mrlib/cache-image-snip) mrlib/cache-image-snip)
(provide visible-matrix% (provide visible-matrix%
@ -70,7 +69,9 @@
(super-new) (super-new)
(define/override (read f) (define/override (read f)
(define b (send f get-bytes)) (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/override (data->snip data)
(define _ (unless data (error 'read "in matrix-snip-class% failed"))) (define _ (unless data (error 'read "in matrix-snip-class% failed")))
(define new-cache-image-snip (super data->snip (cadr data))) (define new-cache-image-snip (super data->snip (cadr data)))