From fadede137cb2eeeb5fb67c9592bcca63ce592013 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 19 Aug 2009 08:27:28 -0500 Subject: [PATCH] use iota --- 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 4609642765..5f24417c4b 100755 --- a/core/classes/tuple/tuple.factor +++ b/core/classes/tuple/tuple.factor @@ -35,7 +35,7 @@ M: tuple class layout-of 2 slot { word } declare ; inline layout-of 3 slot { fixnum } declare ; inline : prepare-tuple>array ( tuple -- n tuple layout ) - check-tuple [ tuple-size ] [ ] [ layout-of ] tri ; + check-tuple [ tuple-size iota ] [ ] [ layout-of ] tri ; : copy-tuple-slots ( n tuple -- array ) [ array-nth ] curry map ;