summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c5d1445)
* 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)