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

fix length use

Browse Source 
svn: r10789
This commit is contained in:
Eli Barzilay 2008-07-16 11:28:09 +00:00
parent ba78420428
commit 8cca45792c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mrlib/cache-image-snip.ss
View File

@ -154,7 +154,7 @@
(define/public (data->snip data) (define/public (data->snip data)
(cond (cond
[(not (list? data)) (make-null-cache-image-snip)] [(not (list? data)) (make-null-cache-image-snip)]
[(= (length data 4)) [(= (length data) 4)
;; this is the case for old save files ;; this is the case for old save files
;; if the width is zero, the height ;; if the width is zero, the height
;; will automatically also be zero ;; will automatically also be zero