scaffold-metadata ( vocab file contents -- )

Vocabulary

tools.scaffold.private

Inputs

vocab	an object
file	an object
contents	an object

Outputs

None

Definition

USING: arrays io.encodings.utf8 io.files kernel ;

IN: tools.scaffold.private

: scaffold-metadata ( vocab file contents -- )
    [ ensure-vocab-exists ] 2dip [
        [ vocab/file>path ] dip 1array swap scaffolding?
        [ utf8 set-file-lines ] [ 2drop ] if
    ] [ 2drop ] if* ;