     "\n;VOCAB-ROOT>" surround "resource:core-strings.factor" utf8 set-file-contents ;
 
 : parsed-core-to-file ( -- )
-    core-bootstrap-vocabs
+    core-vocabs
     [ vocab>literals ] map-zip
     [
         first2 [ "<VOCAB: " prepend ] dip

! Copyright (C) 2017 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators.short-circuit
constructors continuations io io.encodings.utf8 io.files
io.streams.string kernel modern modern.paths modern.slices
prettyprint sequences sequences.extras splitting strings
vocabs.loader ;
IN: modern.out

: token? ( obj -- ? )

]]

: strings-core-to-file ( -- )
    core-vocabs
    [ ".private" ?tail drop vocab-source-path utf8 file-contents ] map-zip
    [ "[========[" dup matching-delimiter-string surround ] assoc-map
    [
