simple_test.scm

   1 (import matchable
   2         (chicken process-context)
   3         srfi-18)
   4
   5 (define (main-beh self system)
   6   (send-message system 'print "Hello, what is your name?")
   7   (send-message system 'read
   8                 (make-actor (lambda (self . message)
   9                               (match message
  10                                 ((name)
  11                                  (send-message system 'print "Hello, " name "!")
  12                                  'done)))))
  13
  14   (send-message-later system 10 'print "Boo!"))