From cf826d80b085d07cc230d75810fe7564df10045b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 18 Jul 2009 02:09:56 -0500 Subject: [PATCH] classes.tuple: eliminate generic arithmetic from M: tuple = and M: tuple hashcode* --- core/classes/tuple/tuple.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor index 7633f9b4c8..8e49e2f5f4 100755 --- a/core/classes/tuple/tuple.factor +++ b/core/classes/tuple/tuple.factor @@ -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 ;