irc.client: Fix removing of participant on quit
							parent
							
								
									b855b098a7
								
							
						
					
					
						commit
						b30f22f125
					
				| 
						 | 
				
			
			@ -117,7 +117,7 @@ M: irc-listener to-listener ( message irc-listener -- )
 | 
			
		|||
    with filter ;
 | 
			
		||||
 | 
			
		||||
: remove-participant-from-all ( nick -- )
 | 
			
		||||
    dup listeners-with-participant [ delete-at ] with each ;
 | 
			
		||||
    dup listeners-with-participant [ participants>> delete-at ] with each ;
 | 
			
		||||
 | 
			
		||||
: add-participant ( mode nick channel -- )
 | 
			
		||||
    listener> [ participants>> set-at ] [ 2drop ] if* ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue