suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no need to filter out non-executables

Browse Source 
svn: r8446
This commit is contained in:
Eli Barzilay 2008-01-28 16:01:20 +00:00
parent 8792c4ca95
commit 5d0d0ed44e
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/browser/external.ss
View File

@ -229,15 +229,7 @@
(set! callbacks (set! callbacks
(cons (fw:preferences:add-callback 'external-browser (cons (fw:preferences:add-callback 'external-browser
(lambda (name browser) (refresh-controls browser))) (lambda (name browser) (refresh-controls browser)))
callbacks)) 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))]))))
;; -------------------- proxy for doc downloads -------------------- ;; -------------------- proxy for doc downloads --------------------
(when set-help? (when set-help?