Vocabulary
modern.out

Inputs
None

Outputs
None

Definition


: strings-core-to-file ( -- )
core-vocabs [
".private" ?tail drop
vocab-source-path utf8 file-contents
] zip-with
[ "[========[" dup matching-delimiter-string surround ]
assoc-map [ first2 [ "VOCAB: " prepend ] dip " " glue ] map
[ " " prepend ] map "\n\n" join
"<VOCAB-ROOT: factorcode-core \"https://factorcode.org/git/fact..."
"\n;VOCAB-ROOT>" surround
"resource:core-strings.factor" utf8 set-file-contents ;