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

...

Browse Source 
original commit: 174863d28b9cd14141603df73aee0334ffd7c2b0
This commit is contained in:
John Clements 2001-10-30 05:46:44 +00:00
parent 558dfe6a63
commit 576769bc3e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/net/sendurl.ss
View File

@ -6,8 +6,8 @@
(define (send-url str)
(case (system-type)
[(macos)
(send-event "MACS" "GURL" "GURL" str)]
[(macos macosx)
(send-event "MACS" "GURL" "GURL" str)] ;; actually, I think GURL means something slightly different...
[(unix)
(let ([netscape-path (find-executable-path "netscape" #f)])
(unless netscape-path