From c889c878ef7b4d639e56ea6da034071d343805d4 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 31 May 2005 07:57:54 +0000
Subject: [PATCH] Assume that files in PATH are always executable, don't check.

---
 scheme/complete.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/complete.scm b/scheme/complete.scm
index a2dba6b..5e365f8 100644
--- 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