<PRIVATE
- : (closure) ( vertex set quot: ( vertex -- edges ) -- )
+: (closure) ( vertex set quot: ( vertex -- edges ) -- )
2over ?adjoin [
[ dip ] keep [ (closure) ] 2curry each
] [ 3drop ] if ; inline recursive
- : new-empty-set-like ( exemplar -- set )
+: new-empty-set-like ( exemplar -- set )
f swap set-like clone ; inline
PRIVATE>