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

Change usages of >r/r> in unicode.*

db4
Slava Pestov 2008-12-04 10:19:18 -06:00
parent ba31f73b41
commit 9172a3ae27
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unicode/breaks/breaks.factor
View File

@ -72,7 +72,7 @@ VALUE: grapheme-table
grapheme-table nth nth not ; grapheme-table nth nth not ;
: chars ( i str n -- str[i] str[i+n] ) : chars ( i str n -- str[i] str[i+n] )
swap >r dupd + r> [ ?nth ] curry bi@ ; swap [ dupd + ] dip [ ?nth ] curry bi@ ;
: find-index ( seq quot -- i ) find drop ; inline : find-index ( seq quot -- i ) find drop ; inline
: find-last-index ( seq quot -- i ) find-last drop ; inline : find-last-index ( seq quot -- i ) find-last drop ; inline

2
basis/unicode/collation/collation.factor
View File

@ -124,7 +124,7 @@ PRIVATE>
[ zero? ] tri@ and and ; [ zero? ] tri@ and and ;
: filter-ignorable ( weights -- weights' ) : filter-ignorable ( weights -- weights' )
>r f r> [ f swap [
tuck primary>> zero? and tuck primary>> zero? and
[ swap ignorable?>> or ] [ swap ignorable?>> or ]
[ swap completely-ignorable? or not ] 2bi [ swap completely-ignorable? or not ] 2bi