Vocabulary
modern.out

Inputs
None

Outputs
None

Definition


: parsed-core-to-file ( -- )
core-vocabs [ vocab>literals ] zip-with [
first2 [ "<VOCAB: " prepend ] dip
>strings ";VOCAB>" 3array
] map 1array {
"<VOCAB-ROOT:"
"factorcode-core"
"https://factorcode.org/git/factor.git"
"core/"
} { ";VOCAB-ROOT>" } surround
"resource:core-parsed.factor" utf8 [ ... ] with-file-writer
;