From 33f070b8265816f6869409fb791b9d88f0143139 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 21 Apr 2002 16:23:41 +0000
Subject: [PATCH] .

original commit: 320d57608949cf51ca008358f995a371ef5164c2
---
 collects/net/sendurl.ss | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 7e0142716f..2327b9c087 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -19,18 +19,7 @@
 	   ;; actually, I think GURL means something slightly different...
 	   (send-event "MACS" "GURL" "GURL" str)]
 	  [(windows)
-	   ;; Try to get a MrEd function...
-	   (let ([get-res (with-handlers ([not-break-exn? (lambda (x) #f)])
-			    (dynamic-require '(lib "mred.ss" "mred") 'get-resource))])
-	     (if get-res
-		 (let ([b (box "")])
-		   (unless (get-res "HKEY_CLASSES_ROOT" "htmlfile\\shell\\open\\command" b)
-		     (error 'send-url "couldn't find URL opener in the registry"))
-                   (apply
-                    process*/close-ports
-                    (append (parse-command.com (open-input-string (unbox b)))
-                            (list str))))
-		 (error 'send-url "don't know how to open URL in Windows without MrEd")))]
+	   (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
 	  [(unix)
 	   (let ([preferred (get-preference 'external-browser (lambda () #f))])
 	     (cond