 
 ERROR: not-a-vocab-root string ;
 
+ERROR: vocab-must-not-exist string ;
+
 <PRIVATE
 
 : vocab-root? ( string -- ? )

    [ "platforms.txt" ] dip scaffold-metadata ;

: scaffold-vocab ( vocab-root string -- )
    {
        [ scaffold-directory ]
        [ scaffold-main ]
        [ nip require ]


: check-vocab-root/vocab ( vocab-root string -- vocab-root string )
    [ check-root ] [ check-vocab-name ] bi* ;

: check-vocab-exists ( string -- string )
    dup vocab-exists? [ vocab-must-not-exist ] when ;

: replace-vocab-separators ( vocab -- path )
    path-separator first CHAR: . associate substitute ; inline
