classes.tuple: make boa-effect generic.

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 16ed284ec31aa17da1f37dbd064872ca84f68077..a78dc52a3a8b6240e11b347a042d3fc375926ddf 100644 (file)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -327,7 +327,9 @@ M: tuple-class (define-tuple-class)
     3dup tuple-class-unchanged?
     [ 2drop ?define-symbol ] [ redefine-tuple-class ] if ;
 
-: boa-effect ( class -- effect )
+GENERIC: boa-effect ( class -- effect )
+
+M: tuple-class boa-effect
     [ all-slots [ name>> ] map ] [ name>> 1array ] bi <effect> ;
 
 : define-boa-word ( word class -- )