zealot-load-and-save ( vocabs path -- )

Vocabulary

zealot.factor

Inputs

vocabs	an object
path	an object

Outputs

None

Definition

USING: io kernel memory sequences threads vocabs.hierarchy ;

IN: zealot.factor

: zealot-load-and-save ( vocabs path -- )
    dup "load-and-save to " prepend print flush yield
    [ [ [ load ] each ] ] dip [ save-image ] curry compose
    with-child-options ;