;;; -*- geiser-scheme-implementation: guile -*-

;;; for-each procedure argument-list

(define example1 (lambda () (for-each display '(4 6 8))))

(define example2 (lambda () (for-each (lambda (i) (display i)) '(4 6 8))))

(define example3 (lambda () (for-each (lambda (dir) (if (not (file-exists? dir)) (mkdir dir))) (quote ("/var/www/webdav/2017-07-24/test" "/var/www/webdav/2017-07-24/test2")))))

(define todays-dir "/var/www/webdav/2017-07-24")
(define log-dir "/var/www/webdav/2017-07-24/log")
(define fail-dir "/var/www/webdav/2017-07-24/fail")

(for-each (lambda (directory) 
                  (if (not (file-exists? directory))
                      (display directory)))
          '(todays-dir log-dir fail-dir))