Assume that files in PATH are always executable, don't check.

2005-05-31 07:57:54 +00:00 · 2005-05-31 07:57:54 +00:00 · c889c878ef
parent 46cdd67321
commit c889c878ef
1 changed files with 1 additions and 1 deletions
--- a/scheme/complete.scm
+++ b/scheme/complete.scm
@ -106,7 +106,7 @@
 (define (dir-executables dir)
  (if (file-readable? dir)
      (map file-name-nondirectory 
-           (filter executable? (glob (string-append dir "/*"))))
+           (glob (string-append dir "/*")))
      '()))

 (define (executable? name) ;; TODO maybe check if executable by this user