graphs: move some words to private.

diff --git a/core/graphs/graphs.factor b/core/graphs/graphs.factor
index 12cec9d55bcf2a31725614d141191653996e4451..e35e29ff140d422df2bac344fea0ac7ed07dbddd 100644 (file)
--- a/core/graphs/graphs.factor
+++ b/core/graphs/graphs.factor
@@ -3,12 +3,16 @@
 USING: assocs kernel namespaces sequences sets ;
 IN: graphs
 
+<PRIVATE
+
 : if-graph ( vertex edges graph quot -- )
     dupd [ 3drop ] if ; inline
 
 : nest ( key graph -- hash )
     [ drop H{ } clone ] cache ; inline
 
+PRIVATE>
+
 : add-vertex ( vertex edges graph -- )
     [ [ nest dupd set-at ] curry with each ] if-graph ; inline
 
@@ -25,6 +29,8 @@ IN: graphs
         swapd [ [ rot ] dip at delete-at drop ] 2curry assoc-each
     ] if-graph ; inline
 
+<PRIVATE
+
 : (closure) ( obj assoc quot: ( elt -- assoc ) -- )
     2over key? [
         3drop
@@ -33,5 +39,7 @@ IN: graphs
         [ [ drop ] 3dip (closure) ] 2curry assoc-each
     ] if ; inline recursive
 
+PRIVATE>
+
 : closure ( obj quot -- assoc )
     H{ } clone [ swap (closure) ] keep ; inline