diff --git a/extra/modern/tools/tools.factor b/extra/modern/tools/tools.factor index 2b54f2cc44..8fece4ed9f 100644 --- a/extra/modern/tools/tools.factor +++ b/extra/modern/tools/tools.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2019 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: assocs combinators.short-circuit kernel modern +USING: assocs combinators.short-circuit graphviz kernel modern modern.compiler modern.out modern.slices sequences sequences.extras ; IN: modern.tools @@ -25,4 +25,8 @@ IN: modern.tools drop f ] if ] map-literals harvest concat harvest - ] assoc-map ; \ No newline at end of file + ] assoc-map ; + +: vocabs>graph ( vocabs -- graph ) + [ ] dip vocabs>using-tool2 + [ [ add-edge ] with each ] assoc-each ; \ No newline at end of file