align globbing

2016-10-19 01:23:03 +02:00 · 2016-10-19 01:23:03 +02:00 · 4997c4421d
parent fee393aadd
commit 4997c4421d
2 changed files with 1 additions and 1 deletions
--- a/sh/anguish.scm
+++ b/sh/anguish.scm
@ -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)
--- a/test-anguish.sh
+++ b/test-anguish.sh