Changeset 35365 in project
- Timestamp:
- 03/31/18 07:20:00 (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/directory-utils/trunk/directory-utils.scm
r35364 r35365 165 165 ;attribute, the MacOS X birthtime, etc. 166 166 167 (: directory-fold (procedure * pathname #!rest -> *)) 168 ; 169 (define (directory-fold func ident dir #!key (dotfiles? #f)) 170 (fold 171 (check-procedure 'directory-fold func) 172 ident 173 (directory (check-directory 'directory-fold dir) dotfiles?)) ) 167 ;(: directory-fold (procedure * pathname #!rest -> *)) 168 ; 169 (define: (directory-fold (func procedure) (ident *) (dir pathname) . (opts (list pathname))) -> * 170 (let ( 171 (dotfiles? (get-keyword #:dotfiles? opts (lambda () #f))) ) 172 (fold 173 (check-procedure 'directory-fold func) 174 ident 175 (directory (check-directory 'directory-fold dir) dotfiles?)) ) ) 174 176 175 177 ;; Directory Stack
Note: See TracChangeset
for help on using the changeset viewer.