Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;; -*- 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))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement