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

db4
Doug Coleman 2009-06-11 20:20:21 -05:00
parent afce3ffd92
commit 4bd06486fb
2 changed files with 1 additions and 9 deletions

View File

@ -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

View File

@ -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 ]