username -> user-name
							parent
							
								
									0e6a81afe1
								
							
						
					
					
						commit
						5135a2499a
					
				| 
						 | 
				
			
			@ -71,7 +71,7 @@ M: string user-groups ( string -- seq )
 | 
			
		|||
    (user-groups) ; 
 | 
			
		||||
 | 
			
		||||
M: integer user-groups ( id -- seq )
 | 
			
		||||
    username (user-groups) ;
 | 
			
		||||
    user-name (user-groups) ;
 | 
			
		||||
    
 | 
			
		||||
: all-groups ( -- seq )
 | 
			
		||||
    [ getgrent dup ] [ group-struct>group ] [ drop ] produce ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue