steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sequences: fix cut word

locals-and-roots
Doug Coleman 2016-06-27 19:58:33 -07:00
parent 86684fcb95
commit 7ac0b9c254
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collections/sequences/extras/extras.factor
View File

@ -636,9 +636,9 @@ ERROR: combinator-nth-reached-end n seq quot ;
n seq quot combinator-nth-reached-end n seq quot combinator-nth-reached-end
] if* ; inline ] if* ; inline
:: cut-nth-match ( n seq quot -- seq' ) :: cut-nth-match ( n seq quot -- head tail )
n seq quot find-nth drop [ n seq quot find-nth drop [
[ seq ] dip 1 + head [ seq ] dip 1 + cut
] [ ] [
n seq quot combinator-nth-reached-end n seq quot combinator-nth-reached-end
] if* ; inline ] if* ; inline