22 lines
530 B
Racket
22 lines
530 B
Racket
#lang racket
|
|
|
|
(define worker-namespace
|
|
(parameterize ((current-namespace (make-base-namespace)))
|
|
(namespace-require 'racket)
|
|
(namespace-require 'math)
|
|
(namespace-require 'racket/fixnum)
|
|
(current-namespace)))
|
|
|
|
(eval 'force worker-namespace) ; -> #<procedure:force>
|
|
|
|
;(eval '(apply (lambda (x y)(* x y)) '(2 3)) worker-namespace)
|
|
|
|
(provide pmapp-worker)
|
|
|
|
(define (pmapp-worker place-ch)
|
|
(let (
|
|
[v (eval (place-channel-get place-ch) worker-namespace)])
|
|
(place-channel-put place-ch v)
|
|
|
|
))
|