Change usages of >r/r> in unicode.*
parent
ba31f73b41
commit
9172a3ae27
basis/unicode
breaks
collation
|
@ -72,7 +72,7 @@ VALUE: grapheme-table
|
|||
grapheme-table nth nth not ;
|
||||
|
||||
: 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-last-index ( seq quot -- i ) find-last drop ; inline
|
||||
|
|
|
@ -124,7 +124,7 @@ PRIVATE>
|
|||
[ zero? ] tri@ and and ;
|
||||
|
||||
: filter-ignorable ( weights -- weights' )
|
||||
>r f r> [
|
||||
f swap [
|
||||
tuck primary>> zero? and
|
||||
[ swap ignorable?>> or ]
|
||||
[ swap completely-ignorable? or not ] 2bi
|
||||
|
|
Loading…
Reference in New Issue