interval-sets: inline unicode constant.

diff --git a/basis/interval-sets/interval-sets-tests.factor b/basis/interval-sets/interval-sets-tests.factor
index d7c8e5ee52623203bf0a7c87976ffd78712f99cf..2d454eeb6182dda411531f3ed9b9a599372947e0 100644 (file)
--- a/basis/interval-sets/interval-sets-tests.factor
+++ b/basis/interval-sets/interval-sets-tests.factor
@@ -15,11 +15,9 @@ CONSTANT: i1 $[
 [ t ] [ 4 i1 in? ] unit-test
 [ f ] [ 5 i1 in? ] unit-test
 
-CONSTANT: unicode-max 0x10FFFF
-
 CONSTANT: i2 $[
     { { 3 4 } } <interval-set>
-    unicode-max <interval-not> ]
+    0x10FFFF <interval-not> ] ! unicode-max
 
 [ t ] [ 2 i2 in? ] unit-test
 [ f ] [ 3 i2 in? ] unit-test