Handbook
Glossary
setup-each ( seq -- i n quot )
Vocabulary
sequences.private
Inputs
seq
an
object
Outputs
i
an
object
n
an
object
quot
an
object
Definition
USING:
accessors
kernel
sequences
;
IN:
sequences.private
:
setup-each
( seq -- i n quot )
dup
slice?
[
[
from>>
]
[
to>>
]
[
seq>>
]
tri
]
[
[
length
check-length
0
swap
]
keep
]
if
[
nth-unsafe
]
curry
;
inline