handle the cases that scandir returns #f. fixes #2

isamert · Jul 5, 2019 · 80d6283 · 80d6283
1 parent cc837c9
commit 80d6283
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/jaro b/jaro
@@ -172,11 +172,12 @@
 (define (system-binary-list)
   (append-map
    (λ (path)
-     (scandir path
-              (λ (file)
-                (let ((abspath (path-join path file)))
-                  (and (file-exists? abspath) (not (file-is-directory? abspath)))))))
-   (string-split (getenv "PATH") #\:)))
+     (or (scandir path
+                  (λ (file)
+                    (let ((abspath (path-join path file)))
+                      (and (file-exists? abspath) (not (file-is-directory? abspath))))))
+         '()))
+     (string-split (getenv "PATH") #\:)))
 
 (define (read-ini-value file group key)
   (define current-group #f)