factor: superclass -> superclass-of, superclasses -> superclasses-of

[factor.git] / core / generic / single / single.factor

diff --git a/core/generic/single/single.factor b/core/generic/single/single.factor
index a89444bb6d6bc45d61189be6350d22cd3b0654a5..e11a9ccef591e379da67e013091d72d437a94b1f 100644 (file)
--- a/core/generic/single/single.factor
+++ b/core/generic/single/single.factor
@@ -118,7 +118,7 @@ TUPLE: tuple-dispatch-engine echelons ;
     at* [ [ methods>> ] bi@ assoc-union! drop ] [ 2drop ] if ;
 
 : copy-superclasses-methods ( class engine assoc -- )
-    [ superclasses ] 2dip
+    [ superclasses-of ] 2dip
     [ swapd copy-superclass-methods ] 2curry each ;
 
 : convert-tuple-inheritance ( assoc -- assoc' )
@@ -202,7 +202,7 @@ SYMBOL: predicate-engines
     predicate-engines get [ at ] curry map-find drop ;
 
 : next-predicate-engine ( engine -- word )
-    class>> superclasses
+    class>> superclasses-of
     find-predicate-engine
     default get or ;