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

Fix thread based places test failures. Turn on testing of places

Browse Source
This commit is contained in:
Kevin Tew 2011-03-04 10:41:26 -07:00
parent f4cae46f14
commit 074c76b0e6
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/props
View File

@ -1821,8 +1821,8 @@ path/s is either such a string or a list of them.
"collects/tests/racket/path.rktl" drdr:command-line #f
"collects/tests/racket/pathlib.rktl" drdr:command-line (racket "-f" *)
"collects/tests/racket/pconvert.rktl" drdr:command-line #f
"collects/tests/racket/place-channel.rktl" drdr:command-line #f
"collects/tests/racket/place.rktl" drdr:command-line #f
"collects/tests/racket/place-channel.rktl" responsible (tewk) drdr:command-line (racket "-f" *)
"collects/tests/racket/place.rktl" responsible (tewk) drdr:command-line (racket "-f" *)
"collects/tests/racket/port.rktl" drdr:command-line #f
"collects/tests/racket/portlib.rktl" drdr:command-line #f
"collects/tests/racket/pretty.rktl" drdr:command-line (racket "-f" *)

6
collects/racket/place.rkt
View File

@ -39,6 +39,10 @@
ch))
(define (th-place mod funcname)
(unless (or (path-string? mod) (resolved-module-path? mod))
(raise-type-error 'place "resolved-module-path? or path-string?" 0 mod funcname))
(unless (symbol? funcname)
(raise-type-error 'place "symbol?" 1 mod funcname))
(define-values (pch cch) (th-place-channel))
(define th (thread (lambda ()
(with-continuation-mark
@ -50,7 +54,7 @@
(TH-place th pch))
(define (th-place-sleep n) (sleep n))
(define (th-place-wait pl) (thread-wait (TH-place-th pl)))
(define (th-place-wait pl) (thread-wait (TH-place-th pl)) 0)
(define (th-place-channel)
(define-values (as ar) (make-th-async-channel))
(define-values (bs br) (make-th-async-channel))