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

.

Browse Source 
original commit: 6791883b622fdb29a1e6cfee35aa5f014bf4b8bf
This commit is contained in:
Matthew Flatt 2002-10-10 15:03:04 +00:00
parent b8aaed8f42
commit cbcda73036
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/net/sendurl.ss
View File

@ -16,7 +16,7 @@
(define external-browser (define external-browser
(make-parameter (make-parameter
(get-preference 'external-browser (lambda () #f)) #f ; #f means "consult the preferences file"
(lambda (x) (lambda (x)
(if (browser-preference? x) (if (browser-preference? x)
x x
@ -64,7 +64,7 @@
[(eq? (system-type) 'windows) [(eq? (system-type) 'windows)
(shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)] (shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)]
[(eq? (system-type) 'unix) [(eq? (system-type) 'unix)
(let ([preferred (external-browser)]) (let ([preferred (or (external-browser) (get-preference 'external-browser))])
(cond (cond
[(use-browser 'opera preferred) [(use-browser 'opera preferred)
=> =>