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

[factor.git] / basis / classes / struct / struct-tests.factor

diff --git a/basis/classes/struct/struct-tests.factor b/basis/classes/struct/struct-tests.factor
index 703f7da8f84566ba42737a51b1ca7f4db8265cbc..6924a10e888797b4cf9f5ab7ccb5cb49259007df 100644 (file)
--- a/basis/classes/struct/struct-tests.factor
+++ b/basis/classes/struct/struct-tests.factor
@@ -373,13 +373,13 @@ TUPLE: a-subclass < will-become-struct ;
 
 { f } [ will-become-struct struct-class? ] unit-test
 
-{ will-become-struct } [ a-subclass superclass ] unit-test
+{ will-become-struct } [ a-subclass superclass-of ] unit-test
 
 { } [ "IN: classes.struct.tests USING: classes.struct alien.c-types ; STRUCT: will-become-struct { x int } ;" eval( -- ) ] unit-test
 
 { t } [ will-become-struct struct-class? ] unit-test
 
-{ tuple } [ a-subclass superclass ] unit-test
+{ tuple } [ a-subclass superclass-of ] unit-test
 
 STRUCT: bit-field-test
     { a uint bits: 12 }