diff --git a/collections/sequences/extras/extras.factor b/collections/sequences/extras/extras.factor index aa95b57609..516f2c77e6 100644 --- a/collections/sequences/extras/extras.factor +++ b/collections/sequences/extras/extras.factor @@ -636,9 +636,9 @@ ERROR: combinator-nth-reached-end n seq quot ; n seq quot combinator-nth-reached-end ] if* ; inline -:: cut-nth-match ( n seq quot -- seq' ) +:: cut-nth-match ( n seq quot -- head tail ) n seq quot find-nth drop [ - [ seq ] dip 1 + head + [ seq ] dip 1 + cut ] [ n seq quot combinator-nth-reached-end ] if* ; inline