From 92be8eaf7076baf752e78a04db4931ca78cc2df6 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Fri, 19 Feb 2016 20:09:40 -0500
Subject: [PATCH] Only respond to link-results that are genuinely intended for
 us.

This can be a concern if some facet subscribes to wildcard. An improved design
would ensure facets only receive events that fall within its interests.
---
 prospect/actor.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]))