db4
Doug Coleman 2009-08-19 08:21:45 -05:00
parent fa415c6d05
commit 3313098936
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;