parent
6f145ee624
commit
a578b3cfa6
|
@ -56,8 +56,7 @@
|
|||
(cond
|
||||
[(procedure? external) (external url-str)]
|
||||
[(eq? stype 'macosx)
|
||||
(browser-process
|
||||
(format "open \"~a\"'" url-str))]
|
||||
(browser-process (format "open \"~a\"" url-str))]
|
||||
[(eq? stype 'windows)
|
||||
(shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)]
|
||||
[(not (eq? stype 'unix))
|
||||
|
|
Loading…
Reference in New Issue
Block a user