original commit: a3eab9a326f21868480e50cf631aeb9a08fc1ec8
This commit is contained in:
Matthew Flatt 2001-12-16 18:29:03 +00:00
parent 6f5839998d
commit a450ad9490

View File

@ -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)