diff --git a/basis/concurrency/messaging/messaging.factor b/basis/concurrency/messaging/messaging.factor index 9046604282..e8bf0d9baa 100644 --- a/basis/concurrency/messaging/messaging.factor +++ b/basis/concurrency/messaging/messaging.factor @@ -120,15 +120,11 @@ M: cannot-send-synchronous-to-self summary '[ _ synchronous-reply? ] (receive-if-timeout) data>> ] if ; - ] keep sender>> send ] if ; -PRIVATE> - : handle-synchronous ( quot -- ) (receive) [ data>> swap call