fix length use

svn: r10789 original commit: 8cca45792c652aab6ed0f5cacfdea131e0c1f5e0
2008-07-16 11:28:09 +00:00 · 2008-07-16 11:28:09 +00:00 · 4a7b838c81
commit 4a7b838c81
parent 4efeb5c5f4
1 changed files with 1 additions and 1 deletions
--- a/collects/mrlib/cache-image-snip.ss
+++ b/collects/mrlib/cache-image-snip.ss
@ -154,7 +154,7 @@
      (define/public (data->snip data)
        (cond
          [(not (list? data)) (make-null-cache-image-snip)]
-          [(= (length data 4))
+          [(= (length data) 4)
           ;; this is the case for old save files
           ;; if the width is zero, the height 
           ;; will automatically also be zero