hive-bootstrap-message
serialize-message write-message
- serialize-message-pretty pprint-mesage
+ serialize-message-pretty pprint-message
read-message read-message-from-string))
;; For ids
(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)
\f
-;;; Convenience procedures
-;;; ======================
+;;; Basic readers / writers
+;;; =======================
(define (serialize-message 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)