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

sequences: improve change-nth, if nth was successful, set-nth can be unsafe.

db4
John Benediktsson 2012-07-30 11:26:32 -07:00
parent 43a0698a6c
commit 5b1b6b6bbb
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/sequences/sequences.factor
View File

@ -365,7 +365,7 @@ PRIVATE>
: glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline
: change-nth ( ..a i seq quot: ( ..a elt -- ..b newelt ) -- ..b )
[ [ nth ] dip call ] 3keep drop set-nth ; inline
[ [ nth ] dip call ] 3keep drop set-nth-unsafe ; inline
: min-length ( seq1 seq2 -- n ) [ length ] bi@ min ; inline
@ -618,8 +618,7 @@ PRIVATE>
<PRIVATE
: mismatch-unsafe ( n seq1 seq2 -- i )
[ 2nth-unsafe = not ] 2curry
find-integer ; inline
[ 2nth-unsafe = not ] 2curry find-integer ; inline
PRIVATE>