th-send.rkt

#lang racket

(define (test-send)
  (let ([parent-thr (current-thread)])

    (thread (lambda ()
              (printf "Child thread\n")
              (thread-send parent-thr
                           (lambda () (printf "Lambda from child\n")))))

    ((thread-receive))))