basis: Fix Windows 10 select-all for emojis.

[factor.git] / basis / unicode / unicode.factor

diff --git a/basis/unicode/unicode.factor b/basis/unicode/unicode.factor
index abeacc52000dab391101fa66016231bbf52a0f76..64cfb600316d9421057756ecbb9fada018435b2e 100644 (file)
--- a/basis/unicode/unicode.factor
+++ b/basis/unicode/unicode.factor
@@ -217,6 +217,10 @@ PRIVATE>
 : string<=> ( str1 str2 -- <=> )
     [ collation-key/nfd 2array ] compare ;
 
+: upper-surrogate? ( ch -- ? ) 0xD800 0xDBFF between? ; inline
+
+: under-surrogate? ( ch -- ? ) 0xDC00 0xDFFF between? ; inline
+
 CONSTANT: unicode-supported {
     "collation"
 }