3 (chicken process-context)
6 (define (send-startup-messages)
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 "!")
19 (send-message system 'print "Boo!"))))
21 (let loop ((args (cdr (argv)))
26 (print "Usage: simple_test [ -h ] [ --port PORT ] [ --hostname host ]"))
27 (((or "-p" "--port") pstr rest ...)
28 (loop rest host (string->number pstr)))
29 (("--hostname" hstr rest ...)
30 (loop rest hstr port))
33 (print "-- Started SAM on " host ":" port " --\n")
34 (send-startup-messages)