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

[factor.git] / basis / ui / gestures / gestures.factor

diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index 07b8d16e547c047f0afffc4cf44b1cacb0d9b75b..b0797c1fcf43b75291a7b6ce9f639662f3bfe92b 100644 (file)
--- a/basis/ui/gestures/gestures.factor
+++ b/basis/ui/gestures/gestures.factor
@@ -9,7 +9,7 @@ FROM: namespaces => set ;
 IN: ui.gestures
 
 : get-gesture-handler ( gesture gadget -- quot )
-    class-of superclasses [ "gestures" word-prop ] map assoc-stack ;
+    class-of superclasses-of [ "gestures" word-prop ] map assoc-stack ;
 
 GENERIC: handle-gesture ( gesture gadget -- ? )