gimp mycrop pattern

gimp

(define (mycrop pattern)
  (let* 
    ((filelist (cadr (file-glob pattern 1))))
    (while (not (null? filelist))
      (let* 
        ((filename (car filelist))
         (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
         (drawable (car (gimp-image-get-active-layer image)))
        )
        (gimp-image-crop image 608 164 21 301)
        (file-png-save-defaults RUN-NONINTERACTIVE image (car (gimp-image-get-active-layer image)) filename filename)
        (gimp-image-delete image)
      )
      (set! filelist (cdr filelist))
    )
  )
)