sequences: fix cut word

2016-06-27 19:58:33 -07:00 · 2016-06-27 19:58:33 -07:00 · 7ac0b9c254
parent 86684fcb95
commit 7ac0b9c254
1 changed files with 2 additions and 2 deletions
--- 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