From 4bd06486fb662d55db3773b4eb3f2c5fa4e7c02c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 11 Jun 2009 20:20:21 -0500
Subject: [PATCH] make a word not generic, remove unit test for unimplemented
 feature

---
 core/classes/tuple/parser/parser-tests.factor | 6 ------
 core/classes/tuple/tuple.factor               | 4 +---
 2 files changed, 1 insertion(+), 9 deletions(-)

diff --git a/core/classes/tuple/parser/parser-tests.factor b/core/classes/tuple/parser/parser-tests.factor
index 88fca567f4..350b594274 100644
--- a/core/classes/tuple/parser/parser-tests.factor
+++ b/core/classes/tuple/parser/parser-tests.factor
@@ -150,9 +150,3 @@ TUPLE: parsing-corner-case x ;
     TUPLE: book { name initial-quot: [ "Lord of the " "Rings" append ] } ;">
     eval( -- )
 ] unit-test
-
-[ ] [
-    <" IN: classes.tuple.tests
-    TUPLE: monster { hp virtual } ;">
-    eval( -- )
-] unit-test
diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 9e0c0b7316..55fbdf725f 100755
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -75,9 +75,7 @@ PRIVATE>
 : tuple-slots ( tuple -- seq )
     prepare-tuple>array drop copy-tuple-slots ;
 
-GENERIC: slots>tuple ( seq class -- tuple )
-
-M: tuple-class slots>tuple
+: slots>tuple ( seq class -- tuple )
     check-slots pad-slots
     tuple-layout <tuple> [
         [ tuple-size ]