diff --git a/prospect/actor.rkt b/prospect/actor.rkt index 7595789..8c83e9d 100644 --- a/prospect/actor.rkt +++ b/prospect/actor.rkt @@ -287,7 +287,7 @@ (if quit? ;; TODO: raise exception instead? Signal the cause of the quit somehow? (quit) #f)] - [(message (link-result _ callee-id reply-values)) + [(message (link-result (== (actor-state-self-id s)) callee-id reply-values)) (invoke-stored-continuation s callee-id reply-values)] [_ #f]))