diff --git a/basis/unix/groups/groups.factor b/basis/unix/groups/groups.factor index 65a26da0ef..ad285a665e 100644 --- a/basis/unix/groups/groups.factor +++ b/basis/unix/groups/groups.factor @@ -1,11 +1,9 @@ ! Copyright (C) 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors alien alien.c-types alien.data alien.strings -assocs byte-arrays classes.struct combinators -combinators.short-circuit continuations fry io.encodings.utf8 -kernel math math.parser namespaces sequences splitting strings -unix unix.ffi unix.users unix.utilities ; -QUALIFIED: grouping +USING: accessors alien.c-types alien.data assocs byte-arrays +classes.struct combinators continuations fry grouping +io.encodings.utf8 kernel math math.parser namespaces sequences +strings unix unix.ffi unix.users unix.utilities ; IN: unix.groups TUPLE: group id name passwd members ; @@ -20,7 +18,7 @@ GENERIC: group-struct ( obj -- group/f ) gr_mem>> utf8 alien>strings ; : (group-struct) ( id -- group-struct id group-struct byte-array length void* ) - [ \ unix.ffi:group ] dip over 4096 + [ unix.ffi:group ] dip over 4096 [ ] keep f void* ; : check-group-struct ( group-struct ptr -- group-struct/f )