From af29a16aeb079f1850d4a723a88e843a0abc406b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 8 Mar 2013 23:23:39 -0800
Subject: [PATCH] classes: finish converting update-map to use hash-sets.

---
 core/classes/classes.factor | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/core/classes/classes.factor b/core/classes/classes.factor
index 173bd76ba9..71a889bd8b 100644
--- a/core/classes/classes.factor
+++ b/core/classes/classes.factor
@@ -3,7 +3,6 @@
 USING: accessors assocs combinators definitions kernel
 make namespaces quotations sequences sets words words.symbol ;
 FROM: namespaces => set ;
-FROM: graphs => add-vertex remove-vertex ;
 QUALIFIED: sets
 IN: classes
 
@@ -131,7 +130,8 @@ GENERIC: implementors ( class/classes -- seq )
         tri
     ] { } make ;
 
-: class-usage ( class -- seq ) update-map get at keys ;
+: class-usage ( class -- seq )
+    update-map get at sets:members ;
 
 <PRIVATE
 
@@ -155,10 +155,12 @@ M: sequence implementors [ implementors ] gather ;
 <PRIVATE
 
 : update-map+ ( class -- )
-    dup class-uses update-map get add-vertex ;
+    dup class-uses update-map get
+    [ adjoin-at ] curry with each ;
 
 : update-map- ( class -- )
-    dup class-uses update-map get remove-vertex ;
+    dup class-uses update-map get
+    [ at delete ] curry with each ;
 
 : implementors-map+ ( class -- )
     [ HS{ } clone ] dip implementors-map get set-at ;