From 9a34a060708efe5f1f00d0783054427dbe24be5c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 28 Jan 2008 16:36:42 +0000
Subject: [PATCH] avoid the extra shell on osx

svn: r8447
---
 collects/net/sendurl.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 08fbe267b0..75c309c50f 100644
--- 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)