core/basis/extra: update some stack effects

[factor.git] / core / classes / tuple / tuple.factor

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 4b329e2efa10b2923e1a60cd31e3e3fdf21506dc..53914ea5c1242cad1840beafba354ac6a3d9b8f2 100644 (file)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -263,7 +263,7 @@ M: tuple-class update-class
 : subclasses ( class -- classes )
     class-usages [ tuple-class? ] filter ;
 
-: each-subclass ( class quot -- )
+: each-subclass ( ... class quot: ( ... subclass -- ... ) -- ... )
     [ subclasses ] dip each ; inline
 
 : redefine-tuple-class ( class superclass slots -- )