suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 8de1b6fafd1e9be50505a3d0d05a6dc22e9ee9d9
This commit is contained in:
Robby Findler 2001-03-22 18:12:15 +00:00
parent 21e3121848
commit bd9415998e
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/net/open-url.ss
View File

@ -6,14 +6,13 @@
[(macos) [(macos)
(send-event "MACS" "GURL" "GURL" str)] (send-event "MACS" "GURL" "GURL" str)]
[(unix) [(unix)
(define netscape-path (find-executable-path "netscape" #f)) (let ([netscape-path (find-executable-path "netscape" #f)])
(unless netscape-path
(unless netscape-path (error 'open-url "Couldn't find Netscape."))
(error 'open-url "Couldn't find Netscape."))
(or (system* netscape-path "-remote" (format "openURL(~a)" str))
(or (system* netscape-path "-remote" (format "openURL(~a)" url)) (let-values ([(out in id err status) (apply values (process* netscape-path str))])
(let-values ([(out in id err status) (apply values (process* netscape-path url))]) (close-output-port in)
(close-output-port in) (close-input-port out)
(close-input-port out) (close-input-port err))))]
(close-input-port err)))]
[else (error 'open-url "don't know how to open url on platform: ~s" (system-type))]))) [else (error 'open-url "don't know how to open url on platform: ~s" (system-type))])))