Changeset 35365 in project


Ignore:
Timestamp:
03/31/18 07:20:00 (6 months ago)
Author:
kon
Message:

fixed but still broken

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/directory-utils/trunk/directory-utils.scm

    r35364 r35365  
    165165;attribute, the MacOS X birthtime, etc.
    166166
    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?)) ) )
    174176
    175177;; Directory Stack
Note: See TracChangeset for help on using the changeset viewer.