The Lambda Lab
/
projects
/
sam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(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)
(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)))))
(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")
(let loop ((args (cdr (argv)))
(host "localhost")
@@
-29,7
+26,5
@@
(("--hostname" hstr rest ...)
(loop rest hstr port))
(()
(("--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))))