;;; -*- 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))
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎