classes.tuple: eliminate generic arithmetic from M: tuple = and M: tuple hashcode*
parent
3ee68d1ff5
commit
cf826d80b0
|
@ -32,7 +32,7 @@ PREDICATE: immutable-tuple-class < tuple-class ( class -- ? )
|
|||
M: tuple class layout-of 2 slot { word } declare ;
|
||||
|
||||
: tuple-size ( tuple -- size )
|
||||
layout-of second ; inline
|
||||
layout-of 3 slot { fixnum } declare ; inline
|
||||
|
||||
: prepare-tuple>array ( tuple -- n tuple layout )
|
||||
check-tuple [ tuple-size ] [ ] [ layout-of ] tri ;
|
||||
|
|
Loading…
Reference in New Issue