graphs: using conjoin.

diff --git a/basis/graphs/graphs.factor b/basis/graphs/graphs.factor
index a1ab6c5dc3b0c61ab03fd35fc36d5d4153a4c135..ce561d96c97584e289c7fefbb2777815c2ae7c0e 100644 (file)
--- a/basis/graphs/graphs.factor
+++ b/basis/graphs/graphs.factor
@@ -14,7 +14,7 @@ IN: graphs
 PRIVATE>
 
 : add-vertex ( vertex edges graph -- )
-    [ [ nest dupd set-at ] curry with each ] if-graph ; inline
+    [ [ nest conjoin ] curry with each ] if-graph ; inline
 
 : add-vertex* ( vertex edges graph -- )
     [