simple fix to deal with performance problem noticed by jpr (this is not a complete fix, but should work in the common case of lots of repeated place-image calls)

svn: r17783
2010-01-23 20:36:54 +00:00 · 2010-01-23 20:36:54 +00:00 · 3c1d7e9aca
commit 3c1d7e9aca
parent 69482b3ceb
1 changed files with 10 additions and 1 deletions
--- a/collects/mrlib/image-core.ss
+++ b/collects/mrlib/image-core.ss
@ -387,7 +387,16 @@ has been moved out).
      (let loop ([crops crops])
        (cond
          [(null? crops) shape]
-          [else (make-crop (car crops) (loop (cdr crops)))])))
+          [(null? (cdr crops))
+           (make-crop (car crops) shape)]
+          [else
+           (let ([fst (car crops)]
+                 [snd (cadr crops)])
+             (cond
+               [(equal? fst snd)
+                (loop (cdr crops))]
+               [else
+                (make-crop (car crops) (loop (cdr crops)))]))])))
    (cond
      [(translate? shape)
       (loop (translate-shape shape)