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 c08916ea5d39a9b1465d7c28e2895f4523e436fa..8bff1d4365795b11c4980178cb342ef5f6a3b1a2 100644
(file)
--- a/
8sync/systems/actors.scm
+++ b/
8sync/systems/actors.scm
@@
-73,7
+73,7
@@
hive-bootstrap-message
serialize-message write-message
hive-bootstrap-message
serialize-message write-message
- serialize-message-pretty pprint-mesage
+ serialize-message-pretty pprint-mes
s
age
read-message read-message-from-string))
;; For ids
read-message read-message-from-string))
;; For ids
@@
-476,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)
@@
-581,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)