3 (define trace-enabled #t)
6 (make-actor-with-address 'factorial
7 (lambda (self customer n)
8 (let ((fact_svc (make-actor
11 ((> n 0) (send-message self (- n 1) (* acc n)) 'sleep)
12 (else (send-message customer acc) 'done))))))
13 (send-message fact_svc n 1)
17 (make-actor-with-address 'println
18 (lambda (self . message)
22 (send-message factorial println 5)
23 (send-message factorial println 7)