steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

concurrency.distributed: shorten stop-node implementation

factor-shell
Alexander Iljin 2018-01-09 02:52:21 +03:00 committed by Doug Coleman
parent b40ba26bac
commit 72ed5bf73d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/concurrency/distributed/distributed.factor
View File

@ -52,7 +52,7 @@ M: thread (serialize) ( obj -- )
id>> [ local-node get insecure>> ] dip <remote-thread> (serialize) ; id>> [ local-node get insecure>> ] dip <remote-thread> (serialize) ;
: stop-node ( -- ) : 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 H{ } clone \ registered-remote-threads set-global