USING: accessors combinators continuations kernel make
namespaces parser vocabs vocabs.loader words ;

IN: vocabs.loader.private

: load-source ( vocab -- )
dup check-vocab-hook get ( vocab -- ) call-effect [
+parsing+ >>source-loaded? dup vocab-source-path
[ parse-file ] [ [ ] ] if*
[ +parsing+ >>source-loaded? ] dip
[ % ] [ ( -- ) call-effect ] if-bootstrapping
+done+ >>source-loaded? load-conditional-requires
] [ ] [ f >>source-loaded? ] cleanup ;