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

diff --git a/simple_test.scm b/simple_test.scm
index cd6149b..f20d203 100644
--- a/simple_test.scm
+++ b/simple_test.scm
@@ -1,5 +1,4 @@
-(import sam
-        matchable
+(import matchable
         (chicken process-context)
         srfi-18)
 
@@ -7,24 +6,9 @@
   (send-message system 'print "Hello, what is your name?")
   (send-message system 'read
                 (make-actor (lambda (self . message)
-                              (print message)
                               (match message
                                 ((name)
                                  (send-message system 'print "Hello, " name "!")
                                  'done)))))
 
   (send-message-later system 10 'print "Boo!"))
-
-(let loop ((args (cdr (argv)))
-           (host "localhost")
-           (port 8000))
-  (match args
-    (((or "-h" "--help"))
-     (print "Usage: simple_test [ -h ] [ --port PORT ] [ --hostname host ]"))
-    (((or "-p" "--port") pstr rest ...)
-     (loop rest host (string->number pstr)))
-    (("--hostname" hstr rest ...)
-     (loop rest hstr port))
-    (()
-     (print "-- Starting SAM on " host ":" port " --\n")
-     (boot-sam host port main-beh))))