concurrency.distributed: use delete-at* instead of at/delete-at.

diff --git a/basis/concurrency/distributed/distributed.factor b/basis/concurrency/distributed/distributed.factor
index f046cdb394a216311cf01ec82b7141c8d898186c..9f480362ec67514589a2155c7a68f0eadbc41d5e 100644 (file)
--- a/basis/concurrency/distributed/distributed.factor
+++ b/basis/concurrency/distributed/distributed.factor
@@ -56,8 +56,8 @@ C: <connection> 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