use osascrip tinsteda of open to open a URL in Mac OS X

svn: r7977
This commit is contained in:
Matthew Flatt 2007-12-12 21:07:25 +00:00
parent 69ea58ac92
commit 6c2e8deee2

View File

@ -59,7 +59,7 @@
(cond
[(procedure? external) (external url-str)]
[(eq? stype 'macosx)
(browser-process (format "open \"~a\"" url-str))]
(browser-process (format "osascript -e 'open location \"~a\"'" url-str))]
[(eq? stype 'windows)
(shell-execute #f url-str "" (current-directory) 'SW_SHOWNORMAL)]
[(not (eq? stype 'unix))