Move distributed places to their own package.

This commit is contained in:
Sam Tobin-Hochstadt 2013-07-18 14:10:54 -04:00
parent efba034e01
commit deb0a8c26e
23 changed files with 10 additions and 1 deletions

View File

@ -0,0 +1,3 @@
#lang info
(define collection 'multi)
(define deps '("base"))

View File

@ -6,6 +6,7 @@
"planet-lib" "planet-lib"
"compatibility-lib" "compatibility-lib"
"net-lib" "net-lib"
"distributed-places-lib"
"sandbox-lib" "sandbox-lib"
"compiler-lib" "compiler-lib"
"scribble-lib" "scribble-lib"

View File

@ -8,6 +8,7 @@
"sandbox-lib" "sandbox-lib"
"compatibility-lib" "compatibility-lib"
"planet-lib" "planet-lib"
"distributed-places-lib"
"pconvert-lib" "pconvert-lib"
"eli-tester" "eli-tester"
;; for `net` tests ;; for `net` tests

View File

@ -81,7 +81,11 @@
(define (dynamic-place module-path function #:at [node #f] #:named [named #f]) (define (dynamic-place module-path function #:at [node #f] #:named [named #f])
(cond (cond
[node [node
(supervise-place-at node module-path function #:named named)] (unless (collection-file-path "distributed.rkt" "racket" "place"
#:fail (lambda (x) #f))
(raise-arguments-error "dynamic-place"
"distributed places are not available"))
(supervise-place-at node module-path function #:named named)]
[else [else
(start-place 'dynamic-place module-path function (start-place 'dynamic-place module-path function
#f (current-output-port) (current-error-port))])) #f (current-output-port) (current-error-port))]))