zero-file ( n path -- )

Vocabulary

io.streams.zeros

Inputs

n	an object
path	an object

Outputs

None

Definition

USING: combinators io.directories io.streams.zeros.private
kernel math ;

IN: io.streams.zeros

: zero-file ( n path -- )
    {
        { [ over 0 < ] [ invalid-file-size ] }
        { [ over 0 = ] [ nip touch-file ] }
        [ (zero-file) ]
    } cond ;