try to make tmp file path shorter (for drdr)

2013-02-16 15:17:38 -05:00 · 2013-02-16 15:17:38 -05:00 · 44e26d493d
commit 44e26d493d
parent 93063be2b7
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/unstable/socket.rkt
+++ b/collects/tests/unstable/socket.rkt
@ -23,7 +23,7 @@
 [(and unix-socket-available? netcat)
  (test-case "unix socket"
    ;; Uses netcat to create a simple unix domain socket server
-    (define tmp (make-temporary-file))
+    (define tmp ((values make-temporary-file)))
    (delete-file tmp)
    (call-in-custodian
     (lambda ()