Reorganized boot.

[sam.git] / simple_test.scm

diff --git a/simple_test.scm b/simple_test.scm
index b1981d7..cd6149b 100644 (file)
--- 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))))