From 4a7b838c81565dcb13c856013058f413ed6998e2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 16 Jul 2008 11:28:09 +0000
Subject: [PATCH] fix length use

svn: r10789

original commit: 8cca45792c652aab6ed0f5cacfdea131e0c1f5e0
---
 collects/mrlib/cache-image-snip.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss
index 363bdc35..8895706d 100644
--- 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