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

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

factor-shell
John Benediktsson 2018-01-20 08:18:36 -08:00
parent 0ac73e1f11
commit c68f0e0042
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,8 +56,8 @@ C: <connection> connection
[ thread-connections set-at ] bi ; [ thread-connections set-at ] bi ;
: disconnect ( remote-thread -- ) : disconnect ( remote-thread -- )
[ thread-connections at [ stream>> dispose ] when* ] thread-connections delete-at*
[ thread-connections delete-at ] bi ; [ stream>> dispose ] [ drop ] if ;
: with-connection ( remote-thread quot -- ) : with-connection ( remote-thread quot -- )
'[ connect @ ] over [ disconnect ] curry [ ] cleanup ; inline '[ connect @ ] over [ disconnect ] curry [ ] cleanup ; inline