align globbing
This commit is contained in:
parent
fee393aadd
commit
4997c4421d
|
@ -132,7 +132,7 @@ copyleft.
|
||||||
(let ((empty? (string=? "" path)))
|
(let ((empty? (string=? "" path)))
|
||||||
(map (lambda (extension) (if empty? extension (string-join (list path "/" extension) "")))
|
(map (lambda (extension) (if empty? extension (string-join (list path "/" extension) "")))
|
||||||
(filter (cute glob-match pattern <>)
|
(filter (cute glob-match pattern <>)
|
||||||
(map car (cddr (file-system-tree (if empty? (getcwd) path))))))))
|
(filter (negate (cute string-any #\. <> 0 1)) (scandir (if empty? (getcwd) path)))))))
|
||||||
paths))
|
paths))
|
||||||
|
|
||||||
(if (glob? pattern)
|
(if (glob? pattern)
|
||||||
|
|
Loading…
Reference in New Issue