actors: Fix export of pprint-message

[8sync.git] / 8sync / systems / actors.scm

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index 0257b1f8407d8be59cce6fa3e38ed4c1fe309b4c..8477a2899e41bc93b04180fcd78d7b01072dc7e4 100644 (file)
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -70,7 +70,11 @@
             reply-message reply-message-wait
 
             ez-run-hive
-            hive-bootstrap-message))
+            hive-bootstrap-message
+
+            serialize-message write-message
+            serialize-message-pretty pprint-message
+            read-message read-message-from-string))
 
 ;; For ids
 (define %random-state
@@ -472,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)