Changeset 35365 in project

Timestamp:

03/31/18 07:20:00 (15 months ago)

Author:

kon

Message:

fixed but still broken

File:

• release/4/directory-utils/trunk/directory-utils.scm (modified) (1 diff)

release/4/directory-utils/trunk/directory-utils.scm

@@ -165 +165 @@
 ;attribute, the MacOS X birthtime, etc.
 
-(: directory-fold (procedure * pathname #!rest -> *))
-;
-(define (directory-fold func ident dir #!key (dotfiles? #f))
-  (fold
-    (check-procedure 'directory-fold func)
-    ident
-    (directory (check-directory 'directory-fold dir) dotfiles?)) )
+;(: directory-fold (procedure * pathname #!rest -> *))
+;
+(define: (directory-fold (func procedure) (ident *) (dir pathname) . (opts (list pathname))) -> *
+  (let (
+    (dotfiles? (get-keyword #:dotfiles? opts (lambda () #f))) )
+    (fold
+      (check-procedure 'directory-fold func)
+      ident
+      (directory (check-directory 'directory-fold dir) dotfiles?)) ) )
 
 ;; Directory Stack