new accessors

db4
Doug Coleman 2008-08-30 14:05:53 -05:00
parent b31d203478
commit 07c3b81542
1 changed files with 2 additions and 2 deletions

View File

@ -1,5 +1,5 @@
USING: sequences namespaces unicode.data kernel math arrays
locals sorting.insertion ;
locals sorting.insertion accessors ;
IN: unicode.normalize
! Conjoining Jamo behavior
@ -43,7 +43,7 @@ IN: unicode.normalize
: reorder-next ( string i -- new-i done? )
over [ non-starter? ] find-from drop [
reorder-slice
>r dup [ combining-class ] insertion-sort slice-to r>
>r dup [ combining-class ] insertion-sort to>> r>
] [ length t ] if* ;
: reorder-loop ( string start -- )