From 020433c48ec74f820cafbc068a0dfd7316ee257d Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Fri, 22 Apr 2016 10:31:25 -0500 Subject: [PATCH 1/1] actors: message-ref: Throw a better error on missing key * 8sync/systems/actors (message-ref): Throw 'message-missing-key on errors now. --- 8sync/systems/actors.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm index c08916e..79beb16 100644 --- a/8sync/systems/actors.scm +++ b/8sync/systems/actors.scm @@ -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) - (throw 'message-body-lacks-key + (throw 'message-missing-key "Message body does not contain key and no default provided" #:key key #:message message) -- 2.31.1