Move distributed places to their own package.
This commit is contained in:
parent
efba034e01
commit
deb0a8c26e
3
pkgs/distributed-places-lib/info.rkt
Normal file
3
pkgs/distributed-places-lib/info.rkt
Normal file
|
@ -0,0 +1,3 @@
|
|||
#lang info
|
||||
(define collection 'multi)
|
||||
(define deps '("base"))
|
|
@ -6,6 +6,7 @@
|
|||
"planet-lib"
|
||||
"compatibility-lib"
|
||||
"net-lib"
|
||||
"distributed-places-lib"
|
||||
"sandbox-lib"
|
||||
"compiler-lib"
|
||||
"scribble-lib"
|
||||
|
|
|
@ -8,6 +8,7 @@
|
|||
"sandbox-lib"
|
||||
"compatibility-lib"
|
||||
"planet-lib"
|
||||
"distributed-places-lib"
|
||||
"pconvert-lib"
|
||||
"eli-tester"
|
||||
;; for `net` tests
|
||||
|
|
|
@ -81,7 +81,11 @@
|
|||
(define (dynamic-place module-path function #:at [node #f] #:named [named #f])
|
||||
(cond
|
||||
[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
|
||||
(start-place 'dynamic-place module-path function
|
||||
#f (current-output-port) (current-error-port))]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user