From bd9415998e758df468f078bd0440e534f9ae1f7d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 Mar 2001 18:12:15 +0000 Subject: [PATCH] .. original commit: 8de1b6fafd1e9be50505a3d0d05a6dc22e9ee9d9 --- collects/net/open-url.ss | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/collects/net/open-url.ss b/collects/net/open-url.ss index c1194307d0..35722aff47 100644 --- a/collects/net/open-url.ss +++ b/collects/net/open-url.ss @@ -6,14 +6,13 @@ [(macos) (send-event "MACS" "GURL" "GURL" str)] [(unix) - (define netscape-path (find-executable-path "netscape" #f)) - - (unless netscape-path - (error 'open-url "Couldn't find Netscape.")) - - (or (system* netscape-path "-remote" (format "openURL(~a)" url)) - (let-values ([(out in id err status) (apply values (process* netscape-path url))]) - (close-output-port in) - (close-input-port out) - (close-input-port err)))] + (let ([netscape-path (find-executable-path "netscape" #f)]) + (unless netscape-path + (error 'open-url "Couldn't find Netscape.")) + + (or (system* netscape-path "-remote" (format "openURL(~a)" str)) + (let-values ([(out in id err status) (apply values (process* netscape-path str))]) + (close-output-port in) + (close-input-port out) + (close-input-port err))))] [else (error 'open-url "don't know how to open url on platform: ~s" (system-type))])))