From a450ad9490fd6a04030158690a765ee2fe7e2781 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 16 Dec 2001 18:29:03 +0000 Subject: [PATCH] . original commit: a3eab9a326f21868480e50cf631aeb9a08fc1ec8 --- collects/net/sendurl.ss | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index 280e2ca6d2..50382fed12 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -16,8 +16,13 @@ (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")) - (system (format "~a ~a" (unbox b) str))) - (error 'send-url "don't know how to open URL in Windows without MrEd")))] + (let-values ([(out in id err status) (apply + values + (process (format "~a ~a" (unbox b) str)))]) + (close-output-port in) + (close-input-port out) + (close-input-port err))) + (error 'send-url "don't know how to open URL in Windows without MrEd")))] [(unix) (cond [(find-executable-path "opera" #f)