align globbing

This commit is contained in:
Rutger van Beusekom 2016-10-19 01:23:03 +02:00
parent fee393aadd
commit 4997c4421d
2 changed files with 1 additions and 1 deletions

View File

@ -132,7 +132,7 @@ copyleft.
(let ((empty? (string=? "" path)))
(map (lambda (extension) (if empty? extension (string-join (list path "/" extension) "")))
(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))
(if (glob? pattern)