(with-real-group) ( string/id quot -- )

Vocabulary

unix.groups

Inputs

string/id	an object
quot	an object

Outputs

None

Definition

USING: continuations kernel ;

IN: unix.groups

: (with-real-group) ( string/id quot -- )
    [ [ set-real-group ] curry ] dip compose real-group-id
    [ set-real-group ] curry finally ; inline