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

ts> 
Gives: 0
ts> 
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)))
Apply to: (((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: (if (macro? form) (macro-expand-all (macro-expand form)) form)
Eval: (macro? form)
Eval: macro?
Eval: form
Apply to: (((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: form
Gives: png-to-layer
ts> 
Eval: (let* ((img (car (gimp-image-new 200 200 RGB)))) (gimp-image-set-resolution img 96.0 96.0) (gimp-image-undo-disable img) (for-each (lambda (names) (png-to-layer img (car names) (cdr names))) (map cons '("/tmp/gimp-out-3sh25xnj/Slide2.png") '("Slide2"))) (gimp-image-resize-to-layers img) (for-each (lambda (hGuide) (gimp-image-add-hguide img hGuide)) '(951.0227 49.024128)) (for-each (lambda (vGuide) (gimp-image-add-vguide img vGuide)) '(46.936577 953.01659)) (gimp-image-grid-set-spacing img 100 100) (gimp-image-grid-set-offset img 0 0) (gimp-image-undo-enable img) (gimp-file-save RUN-NONINTERACTIVE img (car (gimp-image-get-active-layer img)) "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf" "/tmp/gimp-out-3sh25xnj/ref_guides.svg.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 93961131552496> ("gimp-image-new" 200 200 0))
Apply to: ("gimp-image-new" 200 200 0)
Apply to: ((1))
Eval: (gimp-image-set-resolution img 96.0 96.0)
Eval: gimp-image-set-resolution
Eval: img
Eval: 96.0
Eval: 96.0
Apply to: (1 96.0 96.0)
Eval: (apply gimp-proc-db-call (cons "gimp-image-set-resolution" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-set-resolution" x)
Eval: cons
Eval: "gimp-image-set-resolution"
Eval: x
Apply to: ("gimp-image-set-resolution" (1 96.0 96.0))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-set-resolution" 1 96.0 96.0))
Apply to: ("gimp-image-set-resolution" 1 96.0 96.0)
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 93961131552496> ("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/gimp-out-3sh25xnj/Slide2.png") '("Slide2")))
Eval: for-each
Eval: (lambda (names) (png-to-layer img (car names) (cdr names)))
Apply to: (((names) (png-to-layer img (car names) (cdr names))))
Eval: (if (macro? form) (macro-expand-all (macro-expand form)) form)
Eval: (macro? form)
Eval: macro?
Eval: form
Apply to: (((names) (png-to-layer img (car names) (cdr names))))
Eval: form
Eval: (map cons '("/tmp/gimp-out-3sh25xnj/Slide2.png") '("Slide2"))
Eval: map
Eval: cons
Eval: '("/tmp/gimp-out-3sh25xnj/Slide2.png")
Eval: '("Slide2")
Apply to: (#<cons PROCEDURE 76> ("/tmp/gimp-out-3sh25xnj/Slide2.png") ("Slide2"))
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/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
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/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.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/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.png") ("Slide2"))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png") ("Slide2")) () ())
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/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
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/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.png"))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.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/gimp-out-3sh25xnj/Slide2.png") ("Slide2")))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: ("/tmp/gimp-out-3sh25xnj/Slide2.png")
Eval: x
Apply to: (() ("/tmp/gimp-out-3sh25xnj/Slide2.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: ((("Slide2")) ("/tmp/gimp-out-3sh25xnj/Slide2.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: ((("Slide2")))
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: ((("Slide2")))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("Slide2")))
Apply to: (("Slide2"))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: ((("Slide2")))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: ((("Slide2")))
Apply to: (("Slide2"))
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: ((("Slide2")))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: ("Slide2")
Eval: x
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.png") ("Slide2"))
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/gimp-out-3sh25xnj/Slide2.png" "Slide2") (() ()))
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/gimp-out-3sh25xnj/Slide2.png" "Slide2") (() ()))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png" "Slide2") () ()))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png" "Slide2") () ()))
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 76> ("/tmp/gimp-out-3sh25xnj/Slide2.png" "Slide2"))
Apply to: ("/tmp/gimp-out-3sh25xnj/Slide2.png" "Slide2")
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<cons PROCEDURE 76> (() ()))
Apply to: (#<CLOSURE> (#<cons PROCEDURE 76> () ()))
Apply to: (#<cons PROCEDURE 76> () ())
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2") ())
Apply to: (#<CLOSURE> (("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: (((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))) () ())
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: (((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: (((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: (((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
Apply to: ((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))
Eval: x
Apply to: (() (("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2")) (()))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2")) (()))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: (((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")) ()))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: (((("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")) ()))
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<CLOSURE> (("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2")))
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))
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/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))
Eval: (cdr names)
Eval: cdr
Eval: names
Apply to: (("/tmp/gimp-out-3sh25xnj/Slide2.png" . "Slide2"))
Apply to: (1 "/tmp/gimp-out-3sh25xnj/Slide2.png" "Slide2")
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/gimp-out-3sh25xnj/Slide2.png" "/tmp/gimp-out-3sh25xnj/Slide2.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/gimp-out-3sh25xnj/Slide2.png" "/tmp/gimp-out-3sh25xnj/Slide2.png"))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("file-png-load" 1 "/tmp/gimp-out-3sh25xnj/Slide2.png" "/tmp/gimp-out-3sh25xnj/Slide2.png"))
Apply to: ("file-png-load" 1 "/tmp/gimp-out-3sh25xnj/Slide2.png" "/tmp/gimp-out-3sh25xnj/Slide2.png")
Apply to: ((2))
Eval: (car (gimp-image-get-active-layer png))
Eval: car
Eval: (gimp-image-get-active-layer png)
Eval: gimp-image-get-active-layer
Eval: png
Apply to: (2)
Eval: (apply gimp-proc-db-call (cons "gimp-image-get-active-layer" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-get-active-layer" x)
Eval: cons
Eval: "gimp-image-get-active-layer"
Eval: x
Apply to: ("gimp-image-get-active-layer" (2))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-get-active-layer" 2))
Apply to: ("gimp-image-get-active-layer" 2)
Apply to: ((3))
Eval: (car (gimp-layer-new-from-drawable png_layer img))
Eval: car
Eval: (gimp-layer-new-from-drawable png_layer img)
Eval: gimp-layer-new-from-drawable
Eval: png_layer
Eval: img
Apply to: (3 1)
Eval: (apply gimp-proc-db-call (cons "gimp-layer-new-from-drawable" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-layer-new-from-drawable" x)
Eval: cons
Eval: "gimp-layer-new-from-drawable"
Eval: x
Apply to: ("gimp-layer-new-from-drawable" (3 1))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-layer-new-from-drawable" 3 1))
Apply to: ("gimp-layer-new-from-drawable" 3 1)
Apply to: ((4))
Eval: (gimp-image-add-layer img xcf_layer -1)
Eval: gimp-image-add-layer
Eval: img
Eval: xcf_layer
Eval: -1
Apply to: (1 4 -1)
Eval: (apply gimp-proc-db-call (cons "gimp-image-add-layer" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-add-layer" x)
Eval: cons
Eval: "gimp-image-add-layer"
Eval: x
Apply to: ("gimp-image-add-layer" (1 4 -1))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-add-layer" 1 4 -1))
Apply to: ("gimp-image-add-layer" 1 4 -1)
Eval: (gimp-drawable-set-name xcf_layer layer_name)
Eval: gimp-drawable-set-name
Eval: xcf_layer
Eval: layer_name
Apply to: (4 "Slide2")
Eval: (apply gimp-proc-db-call (cons "gimp-drawable-set-name" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-drawable-set-name" x)
Eval: cons
Eval: "gimp-drawable-set-name"
Eval: x
Apply to: ("gimp-drawable-set-name" (4 "Slide2"))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-drawable-set-name" 4 "Slide2"))
Apply to: ("gimp-drawable-set-name" 4 "Slide2")
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<CLOSURE> (()))
Apply to: (#<CLOSURE> (#<CLOSURE> ()))
Apply to: (#<CLOSURE> ())
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: '()
Eval: (gimp-image-resize-to-layers img)
Eval: gimp-image-resize-to-layers
Eval: img
Apply to: (1)
Eval: (apply gimp-proc-db-call (cons "gimp-image-resize-to-layers" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-resize-to-layers" x)
Eval: cons
Eval: "gimp-image-resize-to-layers"
Eval: x
Apply to: ("gimp-image-resize-to-layers" (1))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-resize-to-layers" 1))
Apply to: ("gimp-image-resize-to-layers" 1)
Eval: (for-each (lambda (hGuide) (gimp-image-add-hguide img hGuide)) '(951.0227 49.024128))
Eval: for-each
Eval: (lambda (hGuide) (gimp-image-add-hguide img hGuide))
Apply to: (((hGuide) (gimp-image-add-hguide img hGuide)))
Eval: (if (macro? form) (macro-expand-all (macro-expand form)) form)
Eval: (macro? form)
Eval: macro?
Eval: form
Apply to: (((hGuide) (gimp-image-add-hguide img hGuide)))
Eval: form
Eval: '(951.0227 49.024128)
Apply to: (#<CLOSURE> (951.0227 49.024128))
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: (((951.0227 49.024128)))
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: (((951.0227 49.024128)))
Apply to: ((951.0227 49.024128))
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> ((951.0227 49.024128)))
Apply to: ((951.0227 49.024128))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: (((951.0227 49.024128)) () ())
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: (((951.0227 49.024128)))
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: (((951.0227 49.024128)))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: (((951.0227 49.024128)))
Apply to: ((951.0227 49.024128))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: (((951.0227 49.024128)))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: (((951.0227 49.024128)))
Apply to: ((951.0227 49.024128))
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: (((951.0227 49.024128)))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: (951.0227)
Eval: x
Apply to: (() (951.0227))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: ((49.024128))
Eval: x
Apply to: (() ((49.024128)))
Apply to: (() (951.0227) ((49.024128)))
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: ((951.0227) ((49.024128)))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: (((951.0227) (49.024128)))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: (((951.0227) (49.024128)))
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<CLOSURE> (951.0227))
Apply to: (951.0227)
Eval: (gimp-image-add-hguide img hGuide)
Eval: gimp-image-add-hguide
Eval: img
Eval: hGuide
Apply to: (1 951.0227)
Eval: (apply gimp-proc-db-call (cons "gimp-image-add-hguide" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-add-hguide" x)
Eval: cons
Eval: "gimp-image-add-hguide"
Eval: x
Apply to: ("gimp-image-add-hguide" (1 951.0227))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-add-hguide" 1 951.0227))
Apply to: ("gimp-image-add-hguide" 1 951.0227)
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<CLOSURE> ((49.024128)))
Apply to: (#<CLOSURE> (#<CLOSURE> (49.024128)))
Apply to: (#<CLOSURE> (49.024128))
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: (((49.024128)))
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: (((49.024128)))
Apply to: ((49.024128))
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> ((49.024128)))
Apply to: ((49.024128))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: (((49.024128)) () ())
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: (((49.024128)))
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: (((49.024128)))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: (((49.024128)))
Apply to: ((49.024128))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: (((49.024128)))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: (((49.024128)))
Apply to: ((49.024128))
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: (((49.024128)))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: (49.024128)
Eval: x
Apply to: (() (49.024128))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: (())
Eval: x
Apply to: (() (()))
Apply to: (() (49.024128) (()))
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: ((49.024128) (()))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: (((49.024128) ()))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: (((49.024128) ()))
Eval: (cons (apply proc cars) (apply map (cons proc cdrs)))
Eval: cons
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<CLOSURE> (49.024128))
Apply to: (49.024128)
Eval: (gimp-image-add-hguide img hGuide)
Eval: gimp-image-add-hguide
Eval: img
Eval: hGuide
Apply to: (1 49.024128)
Eval: (apply gimp-proc-db-call (cons "gimp-image-add-hguide" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-add-hguide" x)
Eval: cons
Eval: "gimp-image-add-hguide"
Eval: x
Apply to: ("gimp-image-add-hguide" (1 49.024128))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-add-hguide" 1 49.024128))
Apply to: ("gimp-image-add-hguide" 1 49.024128)
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<CLOSURE> (()))
Apply to: (#<CLOSURE> (#<CLOSURE> ()))
Apply to: (#<CLOSURE> ())
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: ((2) ())
Eval: (for-each (lambda (vGuide) (gimp-image-add-vguide img vGuide)) '(46.936577 953.01659))
Eval: for-each
Eval: (lambda (vGuide) (gimp-image-add-vguide img vGuide))
Apply to: (((vGuide) (gimp-image-add-vguide img vGuide)))
Eval: (if (macro? form) (macro-expand-all (macro-expand form)) form)
Eval: (macro? form)
Eval: macro?
Eval: form
Apply to: (((vGuide) (gimp-image-add-vguide img vGuide)))
Eval: form
Eval: '(46.936577 953.01659)
Apply to: (#<CLOSURE> (46.936577 953.01659))
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: (((46.936577 953.01659)))
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: (((46.936577 953.01659)))
Apply to: ((46.936577 953.01659))
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> ((46.936577 953.01659)))
Apply to: ((46.936577 953.01659))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: (((46.936577 953.01659)) () ())
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: (((46.936577 953.01659)))
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: (((46.936577 953.01659)))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: (((46.936577 953.01659)))
Apply to: ((46.936577 953.01659))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: (((46.936577 953.01659)))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: (((46.936577 953.01659)))
Apply to: ((46.936577 953.01659))
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: (((46.936577 953.01659)))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: (46.936577)
Eval: x
Apply to: (() (46.936577))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: ((953.01659))
Eval: x
Apply to: (() ((953.01659)))
Apply to: (() (46.936577) ((953.01659)))
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: ((46.936577) ((953.01659)))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: (((46.936577) (953.01659)))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: (((46.936577) (953.01659)))
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<CLOSURE> (46.936577))
Apply to: (46.936577)
Eval: (gimp-image-add-vguide img vGuide)
Eval: gimp-image-add-vguide
Eval: img
Eval: vGuide
Apply to: (1 46.936577)
Eval: (apply gimp-proc-db-call (cons "gimp-image-add-vguide" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-add-vguide" x)
Eval: cons
Eval: "gimp-image-add-vguide"
Eval: x
Apply to: ("gimp-image-add-vguide" (1 46.936577))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-add-vguide" 1 46.936577))
Apply to: ("gimp-image-add-vguide" 1 46.936577)
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<CLOSURE> ((953.01659)))
Apply to: (#<CLOSURE> (#<CLOSURE> (953.01659)))
Apply to: (#<CLOSURE> (953.01659))
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: (((953.01659)))
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: (((953.01659)))
Apply to: ((953.01659))
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> ((953.01659)))
Apply to: ((953.01659))
Eval: (unzip1-with-cdr-iterative lists '() '())
Eval: unzip1-with-cdr-iterative
Eval: lists
Eval: '()
Eval: '()
Apply to: (((953.01659)) () ())
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: (((953.01659)))
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: (((953.01659)))
Eval: (car (car x))
Eval: car
Eval: (car x)
Eval: car
Eval: x
Apply to: (((953.01659)))
Apply to: ((953.01659))
Eval: (cdar lists)
Eval: cdar
Eval: lists
Apply to: (((953.01659)))
Eval: (cdr (car x))
Eval: cdr
Eval: (car x)
Eval: car
Eval: x
Apply to: (((953.01659)))
Apply to: ((953.01659))
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: (((953.01659)))
Eval: (append cars (list car1))
Eval: append
Eval: cars
Eval: (list car1)
Eval: list
Eval: car1
Apply to: (953.01659)
Eval: x
Apply to: (() (953.01659))
Eval: (append cdrs (list cdr1))
Eval: append
Eval: cdrs
Eval: (list cdr1)
Eval: list
Eval: cdr1
Apply to: (())
Eval: x
Apply to: (() (()))
Apply to: (() (953.01659) (()))
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: ((953.01659) (()))
Eval: (car unz)
Eval: car
Eval: unz
Apply to: (((953.01659) ()))
Eval: (cdr unz)
Eval: cdr
Eval: unz
Apply to: (((953.01659) ()))
Eval: (cons (apply proc cars) (apply map (cons proc cdrs)))
Eval: cons
Eval: (apply proc cars)
Eval: apply
Eval: proc
Eval: cars
Apply to: (#<CLOSURE> (953.01659))
Apply to: (953.01659)
Eval: (gimp-image-add-vguide img vGuide)
Eval: gimp-image-add-vguide
Eval: img
Eval: vGuide
Apply to: (1 953.01659)
Eval: (apply gimp-proc-db-call (cons "gimp-image-add-vguide" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-add-vguide" x)
Eval: cons
Eval: "gimp-image-add-vguide"
Eval: x
Apply to: ("gimp-image-add-vguide" (1 953.01659))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-add-vguide" 1 953.01659))
Apply to: ("gimp-image-add-vguide" 1 953.01659)
Eval: (apply map (cons proc cdrs))
Eval: apply
Eval: map
Eval: (cons proc cdrs)
Eval: cons
Eval: proc
Eval: cdrs
Apply to: (#<CLOSURE> (()))
Apply to: (#<CLOSURE> (#<CLOSURE> ()))
Apply to: (#<CLOSURE> ())
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: ((4) ())
Eval: (gimp-image-grid-set-spacing img 100 100)
Eval: gimp-image-grid-set-spacing
Eval: img
Eval: 100
Eval: 100
Apply to: (1 100 100)
Eval: (apply gimp-proc-db-call (cons "gimp-image-grid-set-spacing" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-grid-set-spacing" x)
Eval: cons
Eval: "gimp-image-grid-set-spacing"
Eval: x
Apply to: ("gimp-image-grid-set-spacing" (1 100 100))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-grid-set-spacing" 1 100 100))
Apply to: ("gimp-image-grid-set-spacing" 1 100 100)
Eval: (gimp-image-grid-set-offset img 0 0)
Eval: gimp-image-grid-set-offset
Eval: img
Eval: 0
Eval: 0
Apply to: (1 0 0)
Eval: (apply gimp-proc-db-call (cons "gimp-image-grid-set-offset" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-grid-set-offset" x)
Eval: cons
Eval: "gimp-image-grid-set-offset"
Eval: x
Apply to: ("gimp-image-grid-set-offset" (1 0 0))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-grid-set-offset" 1 0 0))
Apply to: ("gimp-image-grid-set-offset" 1 0 0)
Eval: (gimp-image-undo-enable img)
Eval: gimp-image-undo-enable
Eval: img
Apply to: (1)
Eval: (apply gimp-proc-db-call (cons "gimp-image-undo-enable" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-undo-enable" x)
Eval: cons
Eval: "gimp-image-undo-enable"
Eval: x
Apply to: ("gimp-image-undo-enable" (1))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-undo-enable" 1))
Apply to: ("gimp-image-undo-enable" 1)
Eval: (gimp-file-save RUN-NONINTERACTIVE img (car (gimp-image-get-active-layer img)) "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf" "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf")
Eval: gimp-file-save
Eval: RUN-NONINTERACTIVE
Eval: img
Eval: (car (gimp-image-get-active-layer img))
Eval: car
Eval: (gimp-image-get-active-layer img)
Eval: gimp-image-get-active-layer
Eval: img
Apply to: (1)
Eval: (apply gimp-proc-db-call (cons "gimp-image-get-active-layer" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-image-get-active-layer" x)
Eval: cons
Eval: "gimp-image-get-active-layer"
Eval: x
Apply to: ("gimp-image-get-active-layer" (1))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-image-get-active-layer" 1))
Apply to: ("gimp-image-get-active-layer" 1)
Apply to: ((4))
Eval: "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf"
Eval: "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf"
Apply to: (1 1 4 "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf" "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf")
Eval: (apply gimp-proc-db-call (cons "gimp-file-save" x))
Eval: apply
Eval: gimp-proc-db-call
Eval: (cons "gimp-file-save" x)
Eval: cons
Eval: "gimp-file-save"
Eval: x
Apply to: ("gimp-file-save" (1 1 4 "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf" "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf"))
Apply to: (#<FOREIGN PROCEDURE 93961131552496> ("gimp-file-save" 1 1 4 "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf" "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf"))
Apply to: ("gimp-file-save" 1 1 4 "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf" "/tmp/gimp-out-3sh25xnj/ref_guides.svg.xcf")
Gives: (#t)
ts> 
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 93961131552496> ("gimp-quit" 0))
Apply to: ("gimp-quit" 0)