3 (chicken process-context)
6 (define (main-beh self system)
7 (send-message system 'print "Hello, what is your name?")
8 (send-message system 'read
9 (make-actor (lambda (self . message)
13 (send-message system 'print "Hello, " name "!")
16 (send-message-later system 10 'print "Boo!"))
18 (let loop ((args (cdr (argv)))
23 (print "Usage: simple_test [ -h ] [ --port PORT ] [ --hostname host ]"))
24 (((or "-p" "--port") pstr rest ...)
25 (loop rest host (string->number pstr)))
26 (("--hostname" hstr rest ...)
27 (loop rest hstr port))
29 (print "-- Starting SAM on " host ":" port " --\n")
30 (boot-sam host port main-beh))))