ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Make the second 'find-files' argument optional.

Browse source 
* guix/build/utils.scm (find-files): Make 'pred' optional.
This commit is contained in:
Ludovic Courtès 2015-04-01 15:43:54 +02:00
parent 8ff3df5baa
commit 4ba3a84d07
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/build/utils.scm
View file

@ -273,11 +273,12 @@ (define (file-name-predicate regexp)
(lambda (file stat) (lambda (file stat)
(regexp-exec file-rx (basename file))))) (regexp-exec file-rx (basename file)))))
(define (find-files dir pred) (define* (find-files dir #:optional (pred (const #t)))
"Return the lexicographically sorted list of files under DIR for which PRED "Return the lexicographically sorted list of files under DIR for which PRED
returns true. PRED is passed two arguments: the absolute file name, and its returns true. PRED is passed two arguments: the absolute file name, and its
stat buffer. PRED can also be a regular expression, in which case it is stat buffer; the default predicate always returns true. PRED can also be a
equivalent to (file-name-predicate PRED)." regular expression, in which case it is equivalent to (file-name-predicate
PRED)."
(let ((pred (if (procedure? pred) (let ((pred (if (procedure? pred)
pred pred
(file-name-predicate pred)))) (file-name-predicate pred))))