projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Fix serialize-message to not use address->string
[8sync.git]
/
8sync
/
systems
/
actors.scm
diff --git
a/8sync/systems/actors.scm
b/8sync/systems/actors.scm
index 0257b1f8407d8be59cce6fa3e38ed4c1fe309b4c..8bff1d4365795b11c4980178cb342ef5f6a3b1a2 100644
(file)
--- a/
8sync/systems/actors.scm
+++ b/
8sync/systems/actors.scm
@@
-70,7
+70,11
@@
reply-message reply-message-wait
ez-run-hive
reply-message reply-message-wait
ez-run-hive
- hive-bootstrap-message))
+ hive-bootstrap-message
+
+ serialize-message write-message
+ serialize-message-pretty pprint-message
+ read-message read-message-from-string))
;; For ids
(define %random-state
;; For ids
(define %random-state
@@
-472,7
+476,7
@@
If key not found and DFLT not provided, throw an error."
(let ((result (assoc key (message-body message))))
(if result (cdr result)
(if (eq? dflt %nothing-provided)
(let ((result (assoc key (message-body message))))
(if result (cdr result)
(if (eq? dflt %nothing-provided)
- (throw 'message-
body-lacks
-key
+ (throw 'message-
missing
-key
"Message body does not contain key and no default provided"
#:key key
#:message message)
"Message body does not contain key and no default provided"
#:key key
#:message message)
@@
-577,8
+581,8
@@
an integer."
"Serialize a message for read/write"
(list
(message-id message)
"Serialize a message for read/write"
(list
(message-id message)
- (
address->string (message-to message)
)
- (
address->string (message-from message)
)
+ (
message-to message
)
+ (
message-from message
)
(message-action message)
(message-body message)
(message-in-reply-to message)
(message-action message)
(message-body message)
(message-in-reply-to message)