www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

pmapp_worker.rkt (530B)

      1 #lang racket
      2 
      3 (define worker-namespace
      4  (parameterize ((current-namespace (make-base-namespace)))
      5   (namespace-require 'racket)
      6     (namespace-require 'math)
      7     (namespace-require 'racket/fixnum)
      8   (current-namespace)))
      9  
     10 (eval 'force worker-namespace) ; -> #<procedure:force>
     11 
     12 ;(eval '(apply (lambda (x y)(* x y)) '(2 3)) worker-namespace)
     13 
     14 (provide pmapp-worker)
     15  
     16 (define (pmapp-worker place-ch)
     17   (let (
     18         [v (eval (place-channel-get place-ch) worker-namespace)])
     19         (place-channel-put place-ch v)
     20         
     21     ))