Welcome to TinyScheme, Version 1.38
Copyright (c) Dimitrios Souflis

> 
Gives: 0
> 
Eval: (define (png-to-layer img png_filename layer_name) (let* ((png (car (file-png-load RUN-NONINTERACTIVE png_filename png_filename))) (png_layer (car (gimp-image-get-active-layer png))) (xcf_layer (car (gimp-layer-new-from-drawable png_layer img)))) (gimp-image-add-layer img xcf_layer -1) (gimp-drawable-set-name xcf_layer layer_name)))
Eval: (lambda (img png_filename layer_name) (let* ((png (car (file-png-load RUN-NONINTERACTIVE png_filename png_filename))) (png_layer (car (gimp-image-get-active-layer png))) (xcf_layer (car (gimp-layer-new-from-drawable png_layer img)))) (gimp-image-add-layer img xcf_layer -1) (gimp-drawable-set-name xcf_layer layer_name)))
Gives: png-to-layer
> 
Eval: (let* ((img (car (gimp-image-new 200 200 RGB)))) (gimp-image-undo-disable img) (for-each (lambda (names) (png-to-layer img (car names) (cdr names))) (map cons '("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") '("layer1" "g8492"))) (gimp-image-resize-to-layers img) (for-each (lambda (hGuide) (gimp-image-add-hguide img hGuide)) '()) (for-each (lambda (vGuide) (gimp-image-add-vguide img vGuide)) '()) (gimp-image-undo-enable img) (gimp-file-save RUN-NONINTERACTIVE img (car (gimp-image-get-active-layer img)) "/tmp/tmp2oMHQp/CleanVoltLogoBC.xcf" "/tmp/tmp2oMHQp/CleanVoltLogoBC.xcf"))
Eval: (car (gimp-image-new 200 200 RGB))
Eval: car
Eval: (gimp-image-new 200 200 RGB)
Eval: gimp-image-new
Eval: 200
Eval: 200
Eval: RGB
Apply to: (200 200 0)
Eval: (apply gimp-proc-db-call (cons "gimp-image-new" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-new" x)
Eval: cons
Eval: "gimp-image-new"
Eval: x
Apply to: ("gimp-image-new" (200 200 0))
Apply to: (#<FOREIGN PROCEDURE -1218972304> ("gimp-image-new" 200 200 0))
Apply to: ("gimp-image-new" 200 200 0)
Apply to: ((1))
Eval: (gimp-image-undo-disable img)
Eval: gimp-image-undo-disable
Eval: img
Apply to: (1)
Eval: (apply gimp-proc-db-call (cons "gimp-image-undo-disable" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-undo-disable" x)
Eval: cons
Eval: "gimp-image-undo-disable"
Eval: x
Apply to: ("gimp-image-undo-disable" (1))
Apply to: (#<FOREIGN PROCEDURE -1218972304> ("gimp-image-undo-disable" 1))
Apply to: ("gimp-image-undo-disable" 1)
Eval: (for-each (lambda (names) (png-to-layer img (car names) (cdr names))) (map cons '("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") '("layer1" "g8492")))
Eval: for-each
Eval: (lambda (names) (png-to-layer img (car names) (cdr names)))
Eval: (map cons '("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") '("layer1" "g8492"))
Eval: map
Eval: cons
Eval: '("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png")
Eval: '("layer1" "g8492")
Apply to: (#<cons PROCEDURE 75> ("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492"))
Eval: (if (null? lists) (apply proc) (if (null? (car lists)) '() (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs))))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Eval: (if (null? (car lists)) '() (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs)))))
Eval: (null? (car lists))
Eval: null?
Eval: (car lists)
Eval: car
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Apply to: (("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png"))
Eval: (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs))))
Eval: (apply unzip1-with-cdr lists)
Eval: apply
Eval: unzip1-with-cdr
Eval: lists
Apply to: (#<CLOSURE> (("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Apply to: (("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492"))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")) () ())
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Eval: (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1))))
Eval: (caar lists)
Eval: caar
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Apply to: (("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png"))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Apply to: (("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png"))
Eval: (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))
Eval: unzip1-with-cdr-iterative
Eval: (cdr lists)
Eval: cdr
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/g8492.png") ("layer1" "g8492")))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: ("/tmp/tmp2oMHQp/layer1.png")
Eval: x
Apply to: (() ("/tmp/tmp2oMHQp/layer1.png"))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: (("/tmp/tmp2oMHQp/g8492.png"))
Eval: x
Apply to: (() (("/tmp/tmp2oMHQp/g8492.png")))
Apply to: ((("layer1" "g8492")) ("/tmp/tmp2oMHQp/layer1.png") (("/tmp/tmp2oMHQp/g8492.png")))
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: ((("layer1" "g8492")))
Eval: (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1))))
Eval: (caar lists)
Eval: caar
Eval: lists
Apply to: ((("layer1" "g8492")))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("layer1" "g8492")))
Apply to: (("layer1" "g8492"))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: ((("layer1" "g8492")))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("layer1" "g8492")))
Apply to: (("layer1" "g8492"))
Eval: (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))
Eval: unzip1-with-cdr-iterative
Eval: (cdr lists)
Eval: cdr
Eval: lists
Apply to: ((("layer1" "g8492")))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: ("layer1")
Eval: x
Apply to: (("/tmp/tmp2oMHQp/layer1.png") ("layer1"))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: (("g8492"))
Eval: x
Apply to: ((("/tmp/tmp2oMHQp/g8492.png")) (("g8492")))
Apply to: (() ("/tmp/tmp2oMHQp/layer1.png" "layer1") (("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: (())
Eval: (cons cars cdrs)
Eval: cons
Eval: cars
Eval: cdrs
Apply to: (("/tmp/tmp2oMHQp/layer1.png" "layer1") (("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "layer1") ("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" "layer1") ("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (cons (apply proc cars) (apply map (cons proc cdrs)))
Eval: cons
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<cons PROCEDURE 75> ("/tmp/tmp2oMHQp/layer1.png" "layer1"))
Apply to: ("/tmp/tmp2oMHQp/layer1.png" "layer1")
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<cons PROCEDURE 75> (("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Apply to: (#<CLOSURE> (#<cons PROCEDURE 75> ("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Apply to: (#<cons PROCEDURE 75> ("/tmp/tmp2oMHQp/g8492.png") ("g8492"))
Eval: (if (null? lists) (apply proc) (if (null? (car lists)) '() (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs))))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (if (null? (car lists)) '() (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs)))))
Eval: (null? (car lists))
Eval: null?
Eval: (car lists)
Eval: car
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Apply to: (("/tmp/tmp2oMHQp/g8492.png"))
Eval: (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs))))
Eval: (apply unzip1-with-cdr lists)
Eval: apply
Eval: unzip1-with-cdr
Eval: lists
Apply to: (#<CLOSURE> (("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Apply to: (("/tmp/tmp2oMHQp/g8492.png") ("g8492"))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")) () ())
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1))))
Eval: (caar lists)
Eval: caar
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Apply to: (("/tmp/tmp2oMHQp/g8492.png"))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Apply to: (("/tmp/tmp2oMHQp/g8492.png"))
Eval: (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))
Eval: unzip1-with-cdr-iterative
Eval: (cdr lists)
Eval: cdr
Eval: lists
Apply to: ((("/tmp/tmp2oMHQp/g8492.png") ("g8492")))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: ("/tmp/tmp2oMHQp/g8492.png")
Eval: x
Apply to: (() ("/tmp/tmp2oMHQp/g8492.png"))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: (())
Eval: x
Apply to: (() (()))
Apply to: ((("g8492")) ("/tmp/tmp2oMHQp/g8492.png") (()))
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: ((("g8492")))
Eval: (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1))))
Eval: (caar lists)
Eval: caar
Eval: lists
Apply to: ((("g8492")))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("g8492")))
Apply to: (("g8492"))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: ((("g8492")))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("g8492")))
Apply to: (("g8492"))
Eval: (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))
Eval: unzip1-with-cdr-iterative
Eval: (cdr lists)
Eval: cdr
Eval: lists
Apply to: ((("g8492")))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: ("g8492")
Eval: x
Apply to: (("/tmp/tmp2oMHQp/g8492.png") ("g8492"))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: (())
Eval: x
Apply to: ((()) (()))
Apply to: (() ("/tmp/tmp2oMHQp/g8492.png" "g8492") (() ()))
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: (())
Eval: (cons cars cdrs)
Eval: cons
Eval: cars
Eval: cdrs
Apply to: (("/tmp/tmp2oMHQp/g8492.png" "g8492") (() ()))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: ((("/tmp/tmp2oMHQp/g8492.png" "g8492") () ()))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: ((("/tmp/tmp2oMHQp/g8492.png" "g8492") () ()))
Eval: (cons (apply proc cars) (apply map (cons proc cdrs)))
Eval: cons
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<cons PROCEDURE 75> ("/tmp/tmp2oMHQp/g8492.png" "g8492"))
Apply to: ("/tmp/tmp2oMHQp/g8492.png" "g8492")
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<cons PROCEDURE 75> (() ()))
Apply to: (#<CLOSURE> (#<cons PROCEDURE 75> () ()))
Apply to: (#<cons PROCEDURE 75> () ())
Eval: (if (null? lists) (apply proc) (if (null? (car lists)) '() (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs))))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: ((() ()))
Eval: (if (null? (car lists)) '() (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (cons (apply proc cars) (apply map (cons proc cdrs)))))
Eval: (null? (car lists))
Eval: null?
Eval: (car lists)
Eval: car
Eval: lists
Apply to: ((() ()))
Apply to: (())
Eval: '()
Apply to: (("/tmp/tmp2oMHQp/g8492.png" . "g8492") ())
Apply to: (("/tmp/tmp2oMHQp/layer1.png" . "layer1") (("/tmp/tmp2oMHQp/g8492.png" . "g8492")))
Apply to: (#<CLOSURE> (("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492")))
Eval: (if (null? lists) (apply proc) (if (null? (car lists)) #t (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (apply proc cars) (apply map (cons proc cdrs)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (if (null? (car lists)) #t (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (apply proc cars) (apply map (cons proc cdrs))))
Eval: (null? (car lists))
Eval: null?
Eval: (car lists)
Eval: car
Eval: lists
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492")))
Eval: (let* ((unz (apply unzip1-with-cdr lists)) (cars (car unz)) (cdrs (cdr unz))) (apply proc cars) (apply map (cons proc cdrs)))
Eval: (apply unzip1-with-cdr lists)
Eval: apply
Eval: unzip1-with-cdr
Eval: lists
Apply to: (#<CLOSURE> ((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492")))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))) () ())
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1))))
Eval: (caar lists)
Eval: caar
Eval: lists
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492")))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492")))
Eval: (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))
Eval: unzip1-with-cdr-iterative
Eval: (cdr lists)
Eval: cdr
Eval: lists
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1") ("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: (("/tmp/tmp2oMHQp/layer1.png" . "layer1"))
Eval: x
Apply to: (() (("/tmp/tmp2oMHQp/layer1.png" . "layer1")))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: ((("/tmp/tmp2oMHQp/g8492.png" . "g8492")))
Eval: x
Apply to: (() ((("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Apply to: (() (("/tmp/tmp2oMHQp/layer1.png" . "layer1")) ((("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (if (null? lists) (cons cars cdrs) (let ((car1 (caar lists)) (cdr1 (cdar lists))) (unzip1-with-cdr-iterative (cdr lists) (append cars (list car1)) (append cdrs (list cdr1)))))
Eval: (null? lists)
Eval: null?
Eval: lists
Apply to: (())
Eval: (cons cars cdrs)
Eval: cons
Eval: cars
Eval: cdrs
Apply to: ((("/tmp/tmp2oMHQp/layer1.png" . "layer1")) ((("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1")) (("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: (((("/tmp/tmp2oMHQp/layer1.png" . "layer1")) (("/tmp/tmp2oMHQp/g8492.png" . "g8492"))))
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<CLOSURE> (("/tmp/tmp2oMHQp/layer1.png" . "layer1")))
Apply to: (("/tmp/tmp2oMHQp/layer1.png" . "layer1"))
Eval: (png-to-layer img (car names) (cdr names))
Eval: png-to-layer
Eval: img
Eval: (car names)
Eval: car
Eval: names
Apply to: (("/tmp/tmp2oMHQp/layer1.png" . "layer1"))
Eval: (cdr names)
Eval: cdr
Eval: names
Apply to: (("/tmp/tmp2oMHQp/layer1.png" . "layer1"))
Apply to: (1 "/tmp/tmp2oMHQp/layer1.png" "layer1")
Eval: (let* ((png (car (file-png-load RUN-NONINTERACTIVE png_filename png_filename))) (png_layer (car (gimp-image-get-active-layer png))) (xcf_layer (car (gimp-layer-new-from-drawable png_layer img)))) (gimp-image-add-layer img xcf_layer -1) (gimp-drawable-set-name xcf_layer layer_name))
Eval: (car (file-png-load RUN-NONINTERACTIVE png_filename png_filename))
Eval: car
Eval: (file-png-load RUN-NONINTERACTIVE png_filename png_filename)
Eval: file-png-load
Eval: RUN-NONINTERACTIVE
Eval: png_filename
Eval: png_filename
Apply to: (1 "/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/layer1.png")
Eval: (apply gimp-proc-db-call (cons "file-png-load" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "file-png-load" x)
Eval: cons
Eval: "file-png-load"
Eval: x
Apply to: ("file-png-load" (1 "/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/layer1.png"))
Apply to: (#<FOREIGN PROCEDURE -1218972304> ("file-png-load" 1 "/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/layer1.png"))
Apply to: ("file-png-load" 1 "/tmp/tmp2oMHQp/layer1.png" "/tmp/tmp2oMHQp/layer1.png")
Eval: (#<CLOSURE> "Procedure execution of file-png-load failed: Could not open '/tmp/tmp2oMHQp/layer1.png' for reading: No such file or directory")
Eval: #<CLOSURE>
Eval: "Procedure execution of file-png-load failed: Could not open '/tmp/tmp2oMHQp/layer1.png' for reading: No such file or directory"
Apply to: ("Procedure execution of file-png-load failed: Could not open '/tmp/tmp2oMHQp/layer1.png' for reading: No such file or directory")
Eval: (if (more-handlers?) (apply (pop-handler)) (apply error x))
Eval: (more-handlers?)
Eval: more-handlers?
Apply to: ()
Eval: (pair? *handlers*)
Eval: pair?
Eval: *handlers*
Apply to: (())
Eval: (apply error x)
Eval: apply
Eval: error
Eval: x
Apply to: (#<error PROCEDURE 134> ("Procedure execution of file-png-load failed: Could not open '/tmp/tmp2oMHQp/layer1.png' for reading: No such file or directory"))
Apply to: ("Procedure execution of file-png-load failed: Could not open '/tmp/tmp2oMHQp/layer1.png' for reading: No such file or directory")Error: Procedure execution of file-png-load failed: Could not open '/tmp/tmp2oMHQp/layer1.png' for reading: No such file or directory 

> 
Eval: (gimp-quit 0)
Eval: gimp-quit
Eval: 0
Apply to: (0)
Eval: (apply gimp-proc-db-call (cons "gimp-quit" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-quit" x)
Eval: cons
Eval: "gimp-quit"
Eval: x
Apply to: ("gimp-quit" (0))
Apply to: (#<FOREIGN PROCEDURE -1218972304> ("gimp-quit" 0))
Apply to: ("gimp-quit" 0)