From 4997c4421dfbaf25aac43dea88cb53d37a945ea9 Mon Sep 17 00:00:00 2001
From: Rutger van Beusekom <rutger.van.beusekom@gmail.com>
Date: Wed, 19 Oct 2016 01:23:03 +0200
Subject: [PATCH] align globbing

---
 sh/anguish.scm             | 2 +-
 test.sh => test-anguish.sh | 0
 2 files changed, 1 insertion(+), 1 deletion(-)
 rename test.sh => test-anguish.sh (100%)

diff --git a/sh/anguish.scm b/sh/anguish.scm
index 0d5789c..723c0d0 100644
--- 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)
diff --git a/test.sh b/test-anguish.sh
similarity index 100%
rename from test.sh
rename to test-anguish.sh