testing_factorial1.scm

   1 (import actors)
   2
   3 (enable-trace)
   4
   5 (define factorial
   6   (make-actor-with-address 'factorial
   7    (lambda (self customer . message)
   8      (match message
   9        ((n) (send-message self customer n 1) 'sleep)
  10        ((0 acc) (send-message customer acc) 'sleep)
  11        ((n acc) (send-message self customer (- n 1) (* acc n)) 'sleep)))))
  12
  13 (define println
  14   (make-actor-with-address 'println
  15    (lambda (self . message)
  16      (apply print message)
  17      'sleep)))
  18
  19 (send-message factorial println 5)
  20 ;;(send-message factorial println 7)
  21 (run)