X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=sam.git;a=blobdiff_plain;f=simple_test.scm;h=cd6149b86a2bad0713688562b48c00cba94125ea;hp=b1981d7e5bcddfc60661266a35e217f3e5db02b9;hb=38a62fdef7fe2929d7e0bba8a847a3e1cc50c177;hpb=e00264f0f59bbddc6eded6747d2d272840a9662b

diff --git a/simple_test.scm b/simple_test.scm
index b1981d7..cd6149b 100644
--- a/simple_test.scm
+++ b/simple_test.scm
@@ -3,7 +3,7 @@
         (chicken process-context)
         srfi-18)
 
-(define (send-startup-messages)
+(define (main-beh self system)
   (send-message system 'print "Hello, what is your name?")
   (send-message system 'read
                 (make-actor (lambda (self . message)
@@ -13,10 +13,7 @@
                                  (send-message system 'print "Hello, " name "!")
                                  'done)))))
 
-  (thread-start!
-   (lambda ()
-     (thread-sleep! 10)
-     (send-message system 'print "Boo!"))))
+  (send-message-later system 10 'print "Boo!"))
 
 (let loop ((args (cdr (argv)))
            (host "localhost")
@@ -29,7 +26,5 @@
     (("--hostname" hstr rest ...)
      (loop rest hstr port))
     (()
-     (init-sam host port)
-     (print "-- Started SAM on " host ":" port " --\n")
-     (send-startup-messages)
-     (start-console))))
+     (print "-- Starting SAM on " host ":" port " --\n")
+     (boot-sam host port main-beh))))