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