unicode: Let upper? lower? etc work with slices by using sequence= instead of =.

diff --git a/basis/unicode/unicode.factor b/basis/unicode/unicode.factor
index 97d1f20e267443da02ab9f2e118422c78e5503de..5e5a8cea36e58fd970105d9ffd8285a326ba0084 100644 (file)
--- a/basis/unicode/unicode.factor
+++ b/basis/unicode/unicode.factor
@@ -137,13 +137,13 @@ HINTS: >title string ;
 : >case-fold ( string -- fold )
     >upper >lower ;
 
-: lower? ( string -- ? ) dup >lower = ;
+: lower? ( string -- ? ) dup >lower sequence= ;
 
-: upper? ( string -- ? ) dup >upper = ;
+: upper? ( string -- ? ) dup >upper sequence= ;
 
-: title? ( string -- ? ) dup >title = ;
+: title? ( string -- ? ) dup >title sequence= ;
 
-: case-fold? ( string -- ? ) dup >case-fold = ;
+: case-fold? ( string -- ? ) dup >case-fold sequence= ;
 
 : nfd ( string -- nfd )
     [ (nfd) ] with-string ;