* 8sync/systems/actors (message-ref): Throw 'message-missing-key
on errors now.
(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)