parent
a79b32c87b
commit
6f145ee624
|
@ -57,8 +57,7 @@
|
|||
[(procedure? external) (external url-str)]
|
||||
[(eq? stype 'macosx)
|
||||
(browser-process
|
||||
(format "osascript -e 'open location \"~a\"'"
|
||||
url-str))]
|
||||
(format "open \"~a\"'" url-str))]
|
||||
[(eq? stype 'windows)
|
||||
(shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)]
|
||||
[(not (eq? stype 'unix))
|
||||
|
@ -77,7 +76,8 @@
|
|||
=> (lambda (exe)
|
||||
(browser-process* exe (if separate-window? "-w" "-x") url-str))]
|
||||
[(or (use-browser 'netscape)
|
||||
(use-browser 'mozilla))
|
||||
(use-browser 'mozilla)
|
||||
(use-browser 'firefox))
|
||||
=> (lambda (exe)
|
||||
;; netscape's -remote returns with an error code, if no netscape is
|
||||
;; around. start a new netscape in that case.
|
||||
|
|
Loading…
Reference in New Issue
Block a user