interval-sets: inline unicode constant.

2012-05-07 17:30:54 -07:00 · 2012-05-07 17:30:54 -07:00 · 61cdde1b74
parent 7977296e27
commit 61cdde1b74
1 changed files with 1 additions and 3 deletions
--- 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