From 3a164fb648fa0fa6a719376037c5c256d67e165e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 2 Nov 2019 15:10:45 -0500 Subject: [PATCH] modern.tools: make a graph of using list --- extra/modern/tools/tools.factor | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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