classes.tuple: eliminate generic arithmetic from M: tuple = and M: tuple hashcode*

db4
Slava Pestov 2009-07-18 02:09:56 -05:00
parent 3ee68d1ff5
commit cf826d80b0
1 changed files with 1 additions and 1 deletions

View File

@ -32,7 +32,7 @@ PREDICATE: immutable-tuple-class < tuple-class ( class -- ? )
M: tuple class layout-of 2 slot { word } declare ; M: tuple class layout-of 2 slot { word } declare ;
: tuple-size ( tuple -- size ) : tuple-size ( tuple -- size )
layout-of second ; inline layout-of 3 slot { fixnum } declare ; inline
: prepare-tuple>array ( tuple -- n tuple layout ) : prepare-tuple>array ( tuple -- n tuple layout )
check-tuple [ tuple-size ] [ ] [ layout-of ] tri ; check-tuple [ tuple-size ] [ ] [ layout-of ] tri ;