2021-05-27 09:28:10 +00:00
|
|
|
#lang racket/base
|
|
|
|
|
|
|
|
|
|
(require "main.rkt")
|
|
|
|
|
|
|
|
|
|
(actor-system
|
|
|
|
|
(lambda (turn)
|
2021-05-27 09:41:11 +00:00
|
|
|
(define disarm (facet-prevent-inert-check! (turn-active-facet turn)))
|
|
|
|
|
(define r1 (turn-ref turn (entity #:message (lambda (turn m)
|
|
|
|
|
(log-info "r1 got ~v" m)
|
|
|
|
|
(turn-stop! turn)))))
|
|
|
|
|
(define r2 (turn-ref turn (entity #:message (lambda (turn m) (log-info "r2 got ~v" m)))))
|
2021-05-27 09:28:10 +00:00
|
|
|
(turn-spawn! turn (lambda (turn)
|
2021-05-27 09:41:11 +00:00
|
|
|
(log-info "Hi!")
|
|
|
|
|
(turn-message! turn r1 'hello-there-r1)
|
|
|
|
|
(turn-message! turn r2 'hello-there-r2)))))
|
