make a word not generic, remove unit test for unimplemented feature

diff --git a/core/classes/tuple/parser/parser-tests.factor b/core/classes/tuple/parser/parser-tests.factor
index 88fca567f4abdcb960daa0aaf8b89d9792bb5aa5..350b5942748e18bc6f98ace0b7e24835884ea0b3 100644 (file)
--- 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 9e0c0b7316e862ee3583dff0f471bf32fb0423c3..55fbdf725fe543b5db0a7826bf6dac96b5d62130 100755 (executable)
--- 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 ]