username -> user-name

db4
Doug Coleman 2009-01-08 17:07:33 -06:00
parent 0e6a81afe1
commit 5135a2499a
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;