Handbook
Glossary
(find-index-from) ( n seq quot quot' -- i elt )
Vocabulary
sequences.private
Inputs
n
an
object
seq
an
object
quot
an
object
quot'
an
object
Outputs
i
an
object
elt
an
object
Definition
USING:
kernel
sequences
;
IN:
sequences.private
:
(find-index-from)
( n seq quot quot' -- i elt )
[
2dup
bounds-check?
]
2dip
[
(find-index)
]
2curry
[
2drop
f
f
]
if
;
inline