make a word not generic, remove unit test for unimplemented feature
parent
afce3ffd92
commit
4bd06486fb
|
@ -150,9 +150,3 @@ TUPLE: parsing-corner-case x ;
|
||||||
TUPLE: book { name initial-quot: [ "Lord of the " "Rings" append ] } ;">
|
TUPLE: book { name initial-quot: [ "Lord of the " "Rings" append ] } ;">
|
||||||
eval( -- )
|
eval( -- )
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ ] [
|
|
||||||
<" IN: classes.tuple.tests
|
|
||||||
TUPLE: monster { hp virtual } ;">
|
|
||||||
eval( -- )
|
|
||||||
] unit-test
|
|
||||||
|
|
|
@ -75,9 +75,7 @@ PRIVATE>
|
||||||
: tuple-slots ( tuple -- seq )
|
: tuple-slots ( tuple -- seq )
|
||||||
prepare-tuple>array drop copy-tuple-slots ;
|
prepare-tuple>array drop copy-tuple-slots ;
|
||||||
|
|
||||||
GENERIC: slots>tuple ( seq class -- tuple )
|
: slots>tuple ( seq class -- tuple )
|
||||||
|
|
||||||
M: tuple-class slots>tuple
|
|
||||||
check-slots pad-slots
|
check-slots pad-slots
|
||||||
tuple-layout <tuple> [
|
tuple-layout <tuple> [
|
||||||
[ tuple-size ]
|
[ tuple-size ]
|
||||||
|
|
Loading…
Reference in New Issue