使用scm脚本从gimp导出所有打开的文件

Question

我想将所有打开的文件从gimp导出为png格式，但我收到有关文件的错误： unbound variable：filename

这是剧本：

(define (script-fu-save-all-images)
(let* ((i (car (gimp-image-list)))
     (image))
(while (> i 0)
  (set! image (vector-ref (cadr (gimp-image-list)) (- i 1)))
  (gimp-file-save RUN-NONINTERACTIVE
                  image filename filename
                  (car (gimp-image-get-active-layer image))
                  (car (gimp-image-get-filename image))
                  (car (gimp-image-get-filename image)))
  (gimp-image-clean-all image)
  (set! i (- i 1))))) 
  (script-fu-register  "script-fu-save-all-images"
  "<Image>/File/Save All Images"