use iota

2009-08-19 08:21:45 -05:00 · 2009-08-19 08:21:45 -05:00 · 3313098936
parent fa415c6d05
commit 3313098936
1 changed files with 1 additions and 1 deletions
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@ -69,7 +69,7 @@ GENERIC: slots>tuple ( seq class -- tuple )
 M: tuple-class slots>tuple ( seq class -- tuple )
    check-slots pad-slots
    tuple-layout <tuple> [
-        [ tuple-size ]
+        [ tuple-size iota ]
        [ [ set-array-nth ] curry ]
        bi 2each
    ] keep ;