X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Factors.scm;fp=8sync%2Factors.scm;h=b00329d32ab1fc489fae13ed46c9a3be258cdf4d;hp=8abe41a1133b20c65dcaf8a3ff3ca1c5f40a8c3e;hb=cd32bbe822f4e3acbb755993d3bd39358c176a26;hpb=e1cc354c7073230398634b1638ea288ce3e27852

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 8abe41a..b00329d 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -196,16 +196,13 @@
            (big-random-number-string))
        #f))
 
-;; TODO: this should abort to the prompt, then check for errors
-;;   when resuming.
-
 (define (<-wait to action . args)
   (define prompt (*actor-prompt*))
   (when (not prompt)
     (error "Tried to <-wait without being in an actor's context..."))
 
   (let ((reply (abort-to-prompt prompt '<-wait to action args)))
-    (cond ((eq? action '*error*)
+    (cond ((eq? (message-action reply) '*error*)
            (throw 'hive-unresumable-coroutine
                   "Won't resume coroutine; got an *error* as a reply"
                   #:message reply))