From 0fea91ff9472a6a64f76ea4dc99453dd6bc23083 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 30 Oct 2014 11:30:21 -0700
Subject: [PATCH] graphs: using conjoin.

---
 basis/graphs/graphs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/graphs/graphs.factor b/basis/graphs/graphs.factor
index a1ab6c5dc3..ce561d96c9 100644
--- 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 -- )
     [