From ac67935ef08846b94a8868313e2b8a4fa5ba1ff5 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 8 Mar 2013 14:56:07 -0800
Subject: [PATCH] classes.tuple: require boa words to have tuple-class
 arguments.

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

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 818bc4135c..18a44409a5 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -332,8 +332,14 @@ M: error-class reset-class
 : boa-effect ( class -- effect )
     [ all-slots [ name>> ] map ] [ name>> 1array ] bi <effect> ;
 
+ERROR: not-a-tuple-class obj ;
+
+: check-tuple-class ( class -- class )
+    dup tuple-class? [ not-a-tuple-class ] unless ; inline
+
 : define-boa-word ( word class -- )
-    [ [ boa ] curry ] [ boa-effect ] bi define-inline ;
+    check-tuple-class [ [ boa ] curry ] [ boa-effect ] bi
+    define-inline ;
 
 : forget-slot-accessors ( class slots -- )
     [