From b64702832b479a38869cd9b98a11a93ceed1b5f8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 4 Jun 2002 03:20:01 +0000
Subject: [PATCH] ..

original commit: 6bd6189f11980d73a822fa8497ceb6cfdb2f8154
---
 collects/net/sendurl.ss | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 9b1c43f97d..1b4e288772 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -14,15 +14,16 @@
       (parameterize ([current-input-port null-input]
 		     [current-error-port null-output] ; comment out this line to see error messages
 		     [current-output-port null-output])
-	(case (system-type)
-	  [(macos)
+	(cond
+	  [(eq? (system-type) 'macos)
 	   ;; actually, I think GURL means something slightly different...
 	   (send-event "MACS" "GURL" "GURL" str)]
-	  [(macosx)
+	  [(or (eq? (system-type) 'macosx)
+	       (equal? "ppc-macosxonx" (system-library-subpath)))
 	   (system (format "osascript -e 'open location \"~a\"'" str))]
-	  [(windows)
+	  [(eq? (system-type) 'windows)
 	   (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
-	  [(unix)
+	  [(eq? (system-type) 'unix)
 	   (let ([preferred (get-preference 'external-browser (lambda () #f))])
 	     (cond
 	       [(and (or (not preferred)