From f84df9d19092be4aa90aa67485a1a029b708435b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 8 Mar 2013 23:06:16 -0800
Subject: [PATCH] classes: change class-usage to return a sequence like it's
 documented to do.

---
 core/classes/classes.factor     | 6 +++---
 core/classes/tuple/tuple.factor | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/core/classes/classes.factor b/core/classes/classes.factor
index e2cad4bf5e..173bd76ba9 100644
--- a/core/classes/classes.factor
+++ b/core/classes/classes.factor
@@ -131,7 +131,7 @@ GENERIC: implementors ( class/classes -- seq )
         tri
     ] { } make ;
 
-: class-usage ( class -- seq ) update-map get at ;
+: class-usage ( class -- seq ) update-map get at keys ;
 
 <PRIVATE
 
@@ -146,7 +146,7 @@ GENERIC: implementors ( class/classes -- seq )
 PRIVATE>
 
 : class-usages ( class -- seq )
-    [ class-usage keys ] closure sets:members ;
+    [ class-usage ] closure sets:members ;
 
 M: class implementors implementors-map get at sets:members ;
 
@@ -184,7 +184,7 @@ GENERIC: metaclass-changed ( use class -- )
 : check-metaclass ( class metaclass -- usages/f )
     over class? [
         over "metaclass" word-prop eq?
-        [ drop f ] [ class-usage keys ] if
+        [ drop f ] [ class-usage ] if
     ] [ 2drop f ] if ;
 
 : ?define-symbol ( word -- )
diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 18a44409a5..895302eaa3 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -298,7 +298,7 @@ PRIVATE>
 GENERIC: make-final ( class -- )
 
 M: tuple-class make-final
-    [ dup class-usage keys ?metaclass-changed ]
+    [ dup class-usage ?metaclass-changed ]
     [ t "final" set-word-prop ]
     bi ;