From 4f6497db5827519fcc27bff94a7836227044e778 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 13 Jan 2022 19:40:22 -0800
Subject: [PATCH] classes.tuple: make boa-effect generic.

---
 core/classes/tuple/tuple.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 16ed284ec3..a78dc52a3a 100644
--- 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 -- )
-- 
2.34.1