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

...

Browse Source 
original commit: cfa23802335d6008cfecf57406d9e1cb1ce9524f
This commit is contained in:
Robby Findler 2002-07-29 05:50:17 +00:00
parent f3a3cd6605
commit 11066aa53d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/net/sendurl.ss
View File

@ -41,7 +41,8 @@
(send-event "MACS" "GURL" "GURL" str))] (send-event "MACS" "GURL" "GURL" str))]
[(or (eq? (system-type) 'macosx) [(or (eq? (system-type) 'macosx)
(equal? "ppc-macosxonx" (system-library-subpath))) (equal? "ppc-macosxonx" (system-library-subpath)))
(system (format "osascript -e 'open location \"~a\"'" str))] (system (format "osascript -e 'open location \"~a\"'"
(regexp-replace* "%" str "%25")))]
[(eq? (system-type) 'windows) [(eq? (system-type) 'windows)
(shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)] (shell-execute #f str "" (current-directory) 'SW_SHOWNORMAL)]
[(eq? (system-type) 'unix) [(eq? (system-type) 'unix)