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

charts.lines: fix some comments

char-rename
Alexander Iljin 2017-01-21 00:59:39 +03:00 committed by John Benediktsson
parent 6aa7aad5b1
commit 4fda623f51
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lines/lines.factor
View File

@ -25,13 +25,13 @@ ALIAS: y second
: search-first? ( elt seq -- index elt exact-match? ) : search-first? ( elt seq -- index elt exact-match? )
dupd search-first rot [ dup first ] dip = ; dupd search-first rot [ dup first ] dip = ;
! Return a slice of the seq with all elements equal elt to the ! Return a slice of the seq with all elements equal to elt to the
! left of the index, plus one that's not equal, if requested. ! left of the index, plus one that's not equal, if requested.
:: adjusted-tail-slice ( n elt plus-one? seq -- slice ) :: adjusted-tail-slice ( n elt plus-one? seq -- slice )
n seq elt first '[ first _ = not ] find-last-from drop seq swap n seq elt first '[ first _ = not ] find-last-from drop seq swap
[ plus-one? [ 1 + ] unless tail-slice ] when* ; [ plus-one? [ 1 + ] unless tail-slice ] when* ;
! Return a slice of the seq with all elements equal elt to the ! Return a slice of the seq with all elements equal to elt to the
! right of the index, plus one that's not equal, if requested. ! right of the index, plus one that's not equal, if requested.
:: adjusted-head-slice ( n elt plus-one? seq -- slice ) :: adjusted-head-slice ( n elt plus-one? seq -- slice )
n seq elt first '[ first _ = not ] find-from drop seq swap n seq elt first '[ first _ = not ] find-from drop seq swap