chmod-set-bit ( path mask ? -- )

Vocabulary

io.files.info.unix.private

Inputs

path	an object
mask	an object
?	an object

Outputs

None

Definition

USING: kernel math math.bitwise unix unix.ffi ;

IN: io.files.info.unix.private

: chmod-set-bit ( path mask ? -- )
    [ dup stat-mode ] 2dip [ bitor ] [ unmask ] if
    [ chmod ] unix-system-call drop ;