unicode: Update to 11.0

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

diff --git a/basis/unicode/categories/categories.factor b/basis/unicode/categories/categories.factor
index 291e2d6499e1c9a4de5ac01719742dc3438f91b4..27dcd82c27ec4e5111efbb3d19201465483b5ff6 100644 (file)
--- a/basis/unicode/categories/categories.factor
+++ b/basis/unicode/categories/categories.factor
@@ -11,7 +11,7 @@ SYMBOLS: Cn Lu Ll Lt Lm Lo Mn Mc Me Nd Nl No Pc Pd Ps Pe Pi Pf Po Sm Sc Sk So Zs
 <PRIVATE
 
 : [category] ( categories code -- quot )
-    '[ integer>fixnum-strict dup category# _ member? [ drop t ] _ if ] ;
+    '[ integer>fixnum-strict dup category-num _ member? [ drop t ] _ if ] ;
 
 : integer-predicate-class ( word predicate -- )
     integer swap define-predicate-class ;