avoid the extra shell on osx

svn: r8447 original commit: 9a34a06070
2008-01-28 16:36:42 +00:00 · 2008-01-28 16:36:42 +00:00 · 07db7e777d
commit 07db7e777d
parent d93d687e0e
1 changed files with 3 additions and 1 deletions
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@ -80,8 +80,10 @@
                             stype)])])
  (void))

+(define osascript (delay (find-executable-path "osascript" #f)))
 (define (send-url/mac url-str)
-  (browser-process (format "osascript -e 'open location \"~a\"'" url-str)))
+  (browser-process (force osascript) "-e"
+                   (format "open location \"~a\"" url-str)))

 (define (send-url/win url-str)
  (define (simple)