From f58cfe596adff4a209e63d66f0afa781e451f901 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 29 Apr 2014 12:59:45 -0600 Subject: [PATCH] fix test --- .../racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt index 0e84a952f1..a50eb40db6 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt @@ -16,7 +16,10 @@ (vector-immutable i ...) (string->immutable-string str) (make-prefab-struct pf-type legal-message ...) - (string->path (string-append string "x")) + (string->path (string-append (if (path-string? string) + string + "?") + "x")) (let-values ([(a b) (place-channel)]) a) (let-values ([(a b) (place-channel)]) b) f)