username -> user-name

2009-01-08 17:07:33 -06:00 · 2009-01-08 17:07:33 -06:00 · 5135a2499a
parent 0e6a81afe1
commit 5135a2499a
1 changed files with 1 additions and 1 deletions
--- a/basis/unix/groups/groups.factor
+++ b/basis/unix/groups/groups.factor
@ -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 ;