simple_test.scm

   1 (import sam-macros)
   2
   3 (define-beh main-beh (self)
   4   ((system) =>
   5    (send-message system 'print "Hello, what is your name?")
   6    (send-message system 'read
   7                  (make-actor (make-beh (self)
   8                                        ((name) =>
   9                                         (send-message system 'print "Hello, " name "!")
  10                                         'done))))
  11    (send-message system 'ping
  12                  (make-actor (make-beh (self)
  13                                        (('pong) =>
  14                                         (send-message system 'print
  15                                                       "Received pong from system!")
  16                                         'done))))
  17    (send-message-later system 10 'print "Boo!")
  18    'done))