From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 22 Apr 2016 15:31:25 +0000 (-0500)
Subject: actors: message-ref: Throw a better error on missing key
X-Git-Tag: v0.2.0~58
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=020433c48ec74f820cafbc068a0dfd7316ee257d;p=8sync.git

actors: message-ref: Throw a better error on missing key

* 8sync/systems/actors (message-ref): Throw 'message-missing-key
  on errors now.
---

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)