..

original commit: fa01be1e36ead0391c9fddfd5cc6cbf3146276a0
2002-08-21 21:34:07 +00:00 · 2002-08-21 21:34:07 +00:00 · 145f4efec6
commit 145f4efec6
parent 11066aa53d
1 changed files with 2 additions and 0 deletions
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@ -41,6 +41,8 @@
 		 (send-event "MACS" "GURL" "GURL" str))]
            [(or (eq? (system-type) 'macosx)
                 (equal? "ppc-macosxonx" (system-library-subpath)))
+             (printf "str: ~s\n" str)
+             (printf  "osascript -e 'open location \"~a\"'" (regexp-replace* "%" str "%25"))
             (system (format "osascript -e 'open location \"~a\"'"
 			     (regexp-replace* "%" str "%25")))]
            [(eq? (system-type) 'windows)