From 6816de50a48ff9073fb153984e9aef827e26b8fc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 4 Jun 2002 02:39:36 +0000
Subject: [PATCH] fixed macos x version to use appleevents

original commit: a5f2c5477efb323219e35c52bc775544c363f746
---
 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 7c14cd4e2a..9b1c43f97d 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -15,9 +15,11 @@
 		     [current-error-port null-output] ; comment out this line to see error messages
 		     [current-output-port null-output])
 	(case (system-type)
-	  [(macos macosx)
+	  [(macos)
 	   ;; actually, I think GURL means something slightly different...
 	   (send-event "MACS" "GURL" "GURL" str)]
+	  [(macosx)
+	   (system (format "osascript -e 'open location \"~a\"'" str))]
 	  [(windows)
 	   (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
 	  [(unix)