[racket-dev] [plt] Push #27163: master branch updated

From: Sam Tobin-Hochstadt (samth at ccs.neu.edu)
Date: Thu Jul 18 15:28:45 EDT 2013

I moved all of distributed places to a new package, which required the
one change below.  I'm not sure about whether this is a good idea,
particularly because neither the `#:at` or `#:named` arguments to
`dynamic-place` are mentioned at all in the documentation.  Thoughts?

Sam


On Thu, Jul 18, 2013 at 3:25 PM,  <samth at racket-lang.org> wrote:
>
> racket/lib/collects/racket/place.rkt
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> --- OLD/racket/lib/collects/racket/place.rkt
> +++ NEW/racket/lib/collects/racket/place.rkt
> @@ -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))]))

Posted on the dev mailing list.