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

[factor.git] / basis / furnace / utilities / utilities.factor

diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index 07dbf6d98c51c8fcc883be1e1541ae789c98c759..57a6919ae92459fa6ece6c9b143b14fea224f5a3 100644 (file)
--- a/basis/furnace/utilities/utilities.factor
+++ b/basis/furnace/utilities/utilities.factor
@@ -31,7 +31,7 @@ ERROR: no-such-responder responder ;
 
 : base-path ( string -- seq )
     dup responder-nesting get
-    [ second class-of superclasses [ name>> = ] with any? ] with find nip
+    [ second class-of superclasses-of [ name>> = ] with any? ] with find nip
     [ first ] [ no-such-responder ] ?if ;
 
 : resolve-base-path ( string -- string' )