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"
|
"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"
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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))]))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user