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)