fix dangling quote

svn: r6906
This commit is contained in:
Eli Barzilay 2007-07-13 16:52:01 +00:00
parent 816d216862
commit d7e79cde81

View File

@ -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))