concurrency.distributed: shorten stop-node implementation
							parent
							
								
									b40ba26bac
								
							
						
					
					
						commit
						72ed5bf73d
					
				| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue