(user-groups) ( string -- seq )

Vocabulary

unix.groups.private

Inputs

string

an object

Outputs

seq

an object

Definition

USING: accessors kernel unix.users ;

IN: unix.groups.private

: (user-groups) ( string -- seq )
    dup user-passwd [ gid>> group-list ] [ drop { } ] if* ;