suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove define-place from racket/place

Browse Source
This commit is contained in:
Kevin Tew 2011-06-17 11:07:32 -06:00
parent a3c21be7f6
commit 508388ed61
2 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/racket/place.rkt
View File

@ -25,7 +25,6 @@
place-channel-put/get place-channel-put/get
processor-count processor-count
place place
define-place
(rename-out [pl-place-enabled? place-enabled?])) (rename-out [pl-place-enabled? place-enabled?]))
(define-struct TH-place (th ch cust) (define-struct TH-place (th ch cust)
@ -153,15 +152,5 @@
(#%variable-reference)))]) (#%variable-reference)))])
(dynamic-place module-path (quote funcname))))])) (dynamic-place module-path (quote funcname))))]))
(define-syntax (place/thunk stx)
(with-syntax ([create-place (gen-create-place stx)])
#'(lambda () create-place)))
(define-syntax (place stx) (define-syntax (place stx)
(gen-create-place stx)) (gen-create-place stx))
(define-syntax (define-place stx)
(syntax-case stx ()
[(_ (name ch) body ...)
#'(define name (place/thunk ch body ...))]))

3
collects/tests/racket/place-channel.rkt
View File

@ -8,6 +8,9 @@
(provide main) (provide main)
(define-syntax-rule (define-place (name ch) body ...)
(define name (lambda () (place ch body ...))))
(define (splat txt fn) (define (splat txt fn)
(call-with-output-file fn #:exists 'replace (call-with-output-file fn #:exists 'replace
(lambda (out) (lambda (out)