projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Removing deprecated comment.
[8sync.git]
/
8sync
/
systems
/
actors.scm
diff --git
a/8sync/systems/actors.scm
b/8sync/systems/actors.scm
index 9ba3818b6ff1d6f6e34b0ff33ae65ad8f29ca619..919ebb1ef16de0976c43b400bafc9684cf48a5f3 100644
(file)
--- a/
8sync/systems/actors.scm
+++ b/
8sync/systems/actors.scm
@@
-126,11
+126,6
@@
(body message-body)
(in-reply-to message-in-reply-to)
(wants-reply message-wants-reply)
(body message-body)
(in-reply-to message-in-reply-to)
(wants-reply message-wants-reply)
-
- ;; See XUDD source for these. Not use yet, maybe eventually will be?
- ;; XUDD uses them for autoreply.
- ;; Requiring mutation on message objects is clearly not great,
- ;; but it may be worth it...? Investigate!
(replied message-replied set-message-replied!)
(deferred-reply message-deferred-reply set-message-deferred-reply!))
(replied message-replied set-message-replied!)
(deferred-reply message-deferred-reply set-message-deferred-reply!))
@@
-197,7
+192,7
@@
If key not found and DFLT not provided, throw an error."
(message (make-message (hive-gen-message-id hive) to-id
(actor-id from-actor) action
(kwarg-list-to-alist message-body-args))))
(message (make-message (hive-gen-message-id hive) to-id
(actor-id from-actor) action
(kwarg-list-to-alist message-body-args))))
- (8sync
-nowait
(hive-process-message hive message))))
+ (8sync (hive-process-message hive message))))
(define (send-message-wait from-actor to-id action . message-body-args)
"Send a message from an actor to another, but wait until we get a response"
(define (send-message-wait from-actor to-id action . message-body-args)
"Send a message from an actor to another, but wait until we get a response"
@@
-224,7
+219,7
@@
If key not found and DFLT not provided, throw an error."
(actor-id from-actor) '*reply*
(kwarg-list-to-alist message-body-args)
#:in-reply-to (message-id original-message))))
(actor-id from-actor) '*reply*
(kwarg-list-to-alist message-body-args)
#:in-reply-to (message-id original-message))))
- (8sync
-nowait
(hive-process-message hive new-message))))
+ (8sync (hive-process-message hive new-message))))
(define (reply-message-wait from-actor original-message
. message-body-args)
(define (reply-message-wait from-actor original-message
. message-body-args)
@@
-513,7
+508,7
@@
more compact following syntax:
(actor-id hive) '*error*
new-message-body
#:in-reply-to (message-id original-message))))
(actor-id hive) '*error*
new-message-body
#:in-reply-to (message-id original-message))))
- (8sync
-nowait
(hive-process-message hive new-message))))
+ (8sync (hive-process-message hive new-message))))
(define-method (hive-process-message (hive <hive>) message)
"Handle one message, or forward it via an ambassador"
(define-method (hive-process-message (hive <hive>) message)
"Handle one message, or forward it via an ambassador"
@@
-684,16
+679,16
@@
that method for documentation."
This is the method actors should call directly (unless they want
to supply an id-cookie, in which case they should use
create-actor*)."
This is the method actors should call directly (unless they want
to supply an id-cookie, in which case they should use
create-actor*)."
- (
8sync (
%hive-create-actor (actor-hive from-actor) actor-class
-
init #f)
))
+ (%hive-create-actor (actor-hive from-actor) actor-class
+
init #f
))
(define* (create-actor* from-actor actor-class id-cookie #:rest init)
"Create an instance of actor-class. Return the new actor's id.
Like create-actor, but permits supplying an id-cookie."
(define* (create-actor* from-actor actor-class id-cookie #:rest init)
"Create an instance of actor-class. Return the new actor's id.
Like create-actor, but permits supplying an id-cookie."
- (
8sync (
%hive-create-actor (actor-hive from-actor) actor-class
-
init id-cookie)
))
+ (%hive-create-actor (actor-hive from-actor) actor-class
+
init id-cookie
))
(define (self-destruct actor)
(define (self-destruct actor)