racket/gui gtk: fix -singleInstance mode and relative paths

original commit: facaba679443d6bf7232cd47a6fce51814144b62
This commit is contained in:
Matthew Flatt 2014-03-29 10:41:38 -06:00
parent f30e0bbb5a
commit 2e198d4e22

View File

@ -88,7 +88,9 @@
(define (send-command-line app)
(let ([msg (unique_message_data_new)]
[b (let ([o (open-output-bytes)])
(write (current-command-line-arguments) o)
(write (for/vector ([p (in-vector (current-command-line-arguments))])
(path->string (path->complete-path p)))
o)
(get-output-bytes o))])
(unique_message_data_set msg b (bytes-length b))
(unique_app_send_message app 42 msg)))