no need to filter out non-executables

svn: r8446
This commit is contained in:
Eli Barzilay 2008-01-28 16:01:20 +00:00
parent 8792c4ca95
commit 5d0d0ed44e

View File

@ -229,15 +229,7 @@
(set! callbacks
(cons (fw:preferences:add-callback 'external-browser
(lambda (name browser) (refresh-controls browser)))
callbacks))
(let disable ([x raw:unix-browser-list] [n 0])
(cond
[(null? x) (void)]
[else (unless (find-executable-path
(symbol->string (car x)) #f)
(send r enable n #f))
(disable (cdr x) (add1 n))]))))
callbacks))))
;; -------------------- proxy for doc downloads --------------------
(when set-help?