try to make tmp file path shorter (for drdr)

This commit is contained in:
Ryan Culpepper 2013-02-16 15:17:38 -05:00
parent 93063be2b7
commit 44e26d493d

View File

@ -23,7 +23,7 @@
[(and unix-socket-available? netcat) [(and unix-socket-available? netcat)
(test-case "unix socket" (test-case "unix socket"
;; Uses netcat to create a simple unix domain socket server ;; Uses netcat to create a simple unix domain socket server
(define tmp (make-temporary-file)) (define tmp ((values make-temporary-file)))
(delete-file tmp) (delete-file tmp)
(call-in-custodian (call-in-custodian
(lambda () (lambda ()