rewrite-file ( path encoding quot: ( str -- str' ) -- )

Vocabulary

modern

Inputs

path	an object
encoding	an object
quot	a quotation with stack effect ( str -- str' )

Outputs

None

Definition

USING: io.files kernel ;

IN: modern

: rewrite-file ( path encoding quot: ( str -- str' ) -- )
    [ [ file-contents ] ] dip compose 2keep set-file-contents ;
    inline