scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
eknauel 2005-05-31 07:57:54 +00:00
parent 46cdd67321
commit c889c878ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/complete.scm
View File

@ -106,7 +106,7 @@
(define (dir-executables dir) (define (dir-executables dir)
(if (file-readable? dir) (if (file-readable? dir)
(map file-name-nondirectory (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 (define (executable? name) ;; TODO maybe check if executable by this user