suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix test

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-29 12:59:45 -06:00
parent 04a60d713b
commit f58cfe596a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-pkgs/racket-test/tests/racket/place-chan-rand.rkt
View File

@ -16,7 +16,10 @@
(vector-immutable i ...) (vector-immutable i ...)
(string->immutable-string str) (string->immutable-string str)
(make-prefab-struct pf-type legal-message ...) (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)]) a)
(let-values ([(a b) (place-channel)]) b) (let-values ([(a b) (place-channel)]) b)
f) f)