projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Make addresses into a srfi-9 record.
[8sync.git]
/
demos
/
ircbot.scm
diff --git
a/demos/ircbot.scm
b/demos/ircbot.scm
index c8571561d9582285c24e5601fae9c181e76a9342..81940fc66744e86206e9449922d1fb6dba44f3ec 100755
(executable)
--- a/
demos/ircbot.scm
+++ b/
demos/ircbot.scm
@@
-106,17
+106,17
@@
(run-hive
(lambda (hive)
(define irc-bot
(run-hive
(lambda (hive)
(define irc-bot
- (
bootstrap-actor* hive
<my-irc-bot> "irc-bot"
-
#:username username
-
#:server server
-
#:channels channels))
+ (
create-actor*
<my-irc-bot> "irc-bot"
+ #:username username
+ #:server server
+ #:channels channels))
(define repl-manager
(cond
((string? repl)
(define repl-manager
(cond
((string? repl)
- (
bootstrap-actor* hive
<repl-manager> "repl"
-
#:path repl))
+ (
create-actor*
<repl-manager> "repl"
+ #:path repl))
(repl
(repl
- (
bootstrap-actor* hive
<repl-manager> "repl"))))
+ (
create-actor*
<repl-manager> "repl"))))
(wait (make-condition)))))
(wait (make-condition)))))