concurrency.distributed: shorten stop-node implementation

diff --git a/basis/concurrency/distributed/distributed.factor b/basis/concurrency/distributed/distributed.factor
index 92330bc64404ec126820eff40ea85e6ed27cbe56..ec5e66b41cee0b73d63a4458f7926d25320e806a 100644 (file)
--- a/basis/concurrency/distributed/distributed.factor
+++ b/basis/concurrency/distributed/distributed.factor
@@ -52,7 +52,7 @@ M: thread (serialize) ( obj -- )
     id>> [ local-node get insecure>> ] dip <remote-thread> (serialize) ;
 
 : stop-node ( -- )
-    local-node get insecure>> f swap send-remote-message ;
+    f local-node get insecure>> send-remote-message ;
 
 [
     H{ } clone \ registered-remote-threads set-global