steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern.tools: make a graph of using list

modern-harvey3
Doug Coleman 2019-11-02 15:10:45 -05:00
parent c279cf6a70
commit 3a164fb648
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/modern/tools/tools.factor
View File

@ -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
@ -26,3 +26,7 @@ IN: modern.tools
] if
] map-literals harvest concat harvest
] assoc-map ;
: vocabs>graph ( vocabs -- graph )
[ <graph> ] dip vocabs>using-tool2
[ [ add-edge ] with each ] assoc-each ;