From c68f0e0042235efa770c5d6aee619e9b54ac5b0f Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 20 Jan 2018 08:18:36 -0800 Subject: [PATCH] concurrency.distributed: use delete-at* instead of at/delete-at. --- basis/concurrency/distributed/distributed.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/concurrency/distributed/distributed.factor b/basis/concurrency/distributed/distributed.factor index f046cdb394..9f480362ec 100644 --- a/basis/concurrency/distributed/distributed.factor +++ b/basis/concurrency/distributed/distributed.factor @@ -56,8 +56,8 @@ C: connection [ thread-connections set-at ] bi ; : disconnect ( remote-thread -- ) - [ thread-connections at [ stream>> dispose ] when* ] - [ thread-connections delete-at ] bi ; + thread-connections delete-at* + [ stream>> dispose ] [ drop ] if ; : with-connection ( remote-thread quot -- ) '[ connect @ ] over [ disconnect ] curry [ ] cleanup ; inline