steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

getgrent doesn't need unix-system-call

db4
Doug Coleman 2010-01-22 19:05:17 -06:00
parent a16d8db145
commit cc068b4f72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unix/groups/groups.factor
View File

@ -83,7 +83,7 @@ M: integer user-groups ( id -- seq )
user-name (user-groups) ;
: all-groups ( -- seq )
[ [ unix.ffi:getgrent ] unix-system-call dup ] [ \ unix.ffi:group memory>struct group-struct>group ] produce nip ;
[ unix.ffi:getgrent dup ] [ \ unix.ffi:group memory>struct group-struct>group ] produce nip ;
: <group-cache> ( -- assoc )
all-groups [ [ id>> ] keep ] H{ } map>assoc ;