diff --git a/pkgs/racket-doc/scribblings/reference/places.scrbl b/pkgs/racket-doc/scribblings/reference/places.scrbl index b109b889d8..19d16a319a 100644 --- a/pkgs/racket-doc/scribblings/reference/places.scrbl +++ b/pkgs/racket-doc/scribblings/reference/places.scrbl @@ -262,7 +262,7 @@ The @racket[place] binding is protected in the same way as The @racket[place*] binding is protected in the same way as @racket[dynamic-place].} -@defform[(open-place id body ...+)]{ +@defform[(place/context id body ...+)]{ Like @racket[place], but @racket[body ...] may have free lexical variables, which are automatically sent to the newly-created place. Note that these variables must have values accepted by diff --git a/racket/collects/racket/place.rkt b/racket/collects/racket/place.rkt index a0edba1b11..cd3d8d9973 100644 --- a/racket/collects/racket/place.rkt +++ b/racket/collects/racket/place.rkt @@ -33,7 +33,7 @@ processor-count (protect-out place place*) - open-place + place/context (rename-out [pl-place-enabled? place-enabled?]) place-dead-evt place-location? @@ -232,7 +232,7 @@ (error who "the enclosing module's resolved name is not a path or predefined")) (start-place-func who (if (symbol? name) `(quote ,name) name) func-name in out err)) -(define-syntax (open-place stx) +(define-syntax (place/context stx) (syntax-parse stx [(_ ch:id body:expr ...) (define b #'(let () body ...)) @@ -248,7 +248,7 @@ (for ([e (in-vector vec)] [n (in-list (syntax->list (quote-syntax (fvs ...))))]) (unless (place-message-allowed? e) - (raise-arguments-error 'open-place + (raise-arguments-error 'place/context "free variable values must be allowable as place messages" (symbol->string (syntax-e n)) e))) (place-channel-put p vec)