steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use iota

db4
Doug Coleman 2009-08-19 08:21:45 -05:00
parent fa415c6d05
commit 3313098936
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/classes/tuple/tuple.factor
View File

@ -69,7 +69,7 @@ GENERIC: slots>tuple ( seq class -- tuple )
M: tuple-class slots>tuple ( seq class -- tuple ) M: tuple-class slots>tuple ( seq class -- tuple )
check-slots pad-slots check-slots pad-slots
tuple-layout <tuple> [ tuple-layout <tuple> [
[ tuple-size ] [ tuple-size iota ]
[ [ set-array-nth ] curry ] [ [ set-array-nth ] curry ]
bi 2each bi 2each
] keep ; ] keep ;