: start ( word -- )
dup name>> compiler-message
- init-dependencies
+ H{ } clone dependencies namespaces:set
+ H{ } clone generic-dependencies namespaces:set
+ HS{ } clone conditional-dependencies namespaces:set
clear-compiler-error ;
GENERIC: no-compile? ( word -- ? )
M: depends-on-final satisfied?
class>> { [ class? ] [ final-class? ] } 1&& ;
-: init-dependencies ( -- )
- H{ } clone dependencies namespaces:set
- H{ } clone generic-dependencies namespaces:set
- HS{ } clone conditional-dependencies namespaces:set ;
-
: without-dependencies ( quot -- )
[
dependencies off