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

View File

@ -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

View File

@ -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