Using "same?" in more places.

[factor.git] / basis / concurrency / messaging / messaging.factor

diff --git a/basis/concurrency/messaging/messaging.factor b/basis/concurrency/messaging/messaging.factor
index 3f55b0969b2705d97ed8edbb1caead9c942423f4..c5140e7506029823e0db168241e4b1e488531e73 100644 (file)
--- a/basis/concurrency/messaging/messaging.factor
+++ b/basis/concurrency/messaging/messaging.factor
@@ -47,7 +47,7 @@ TUPLE: reply data tag ;
     tag>> \ reply boa ;\r
 \r
 : synchronous-reply? ( response synchronous -- ? )\r
-    over reply? [ [ tag>> ] bi@ = ] [ 2drop f ] if ;\r
+    over reply? [ [ tag>> ] same? ] [ 2drop f ] if ;\r
 \r
 ERROR: cannot-send-synchronous-to-self message thread ;\r
 \r