X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=sam.git;a=blobdiff_plain;f=simple_test.scm;h=35c9d48973340ad49562aca2d63b66e4cf8ba793;hp=f20d2035898cd48e4e283834c4276b2498aef9cb;hb=HEAD;hpb=5d2d076345efb45ced333e832d1cbf766bcd5e8a

diff --git a/simple_test.scm b/simple_test.scm
index f20d203..35c9d48 100644
--- a/simple_test.scm
+++ b/simple_test.scm
@@ -1,14 +1,18 @@
-(import matchable
-        (chicken process-context)
-        srfi-18)
+(import sam-macros)
 
-(define (main-beh self system)
-  (send-message system 'print "Hello, what is your name?")
-  (send-message system 'read
-                (make-actor (lambda (self . message)
-                              (match message
-                                ((name)
-                                 (send-message system 'print "Hello, " name "!")
-                                 'done)))))
-
-  (send-message-later system 10 'print "Boo!"))
+(define-beh main-beh (self)
+  ((system) =>
+   (send-message system 'print "Hello, what is your name?")
+   (send-message system 'read
+                 (make-actor (make-beh (self)
+                                       ((name) =>
+                                        (send-message system 'print "Hello, " name "!")
+                                        'done))))
+   (send-message system 'ping
+                 (make-actor (make-beh (self)
+                                       (('pong) =>
+                                        (send-message system 'print
+                                                      "Received pong from system!")
+                                        'done))))
+   (send-message-later system 10 'print "Boo!")
+   'done))