steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

interval-sets: inline unicode constant.

John Benediktsson 2012-05-07 17:30:54 -07:00
parent 7977296e27
commit 61cdde1b74
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/interval-sets/interval-sets-tests.factor
View File

@ -15,11 +15,9 @@ CONSTANT: i1 $[
[ t ] [ 4 i1 in? ] unit-test [ t ] [ 4 i1 in? ] unit-test
[ f ] [ 5 i1 in? ] unit-test [ f ] [ 5 i1 in? ] unit-test
CONSTANT: unicode-max 0x10FFFF
CONSTANT: i2 $[ CONSTANT: i2 $[
{ { 3 4 } } <interval-set> { { 3 4 } } <interval-set>
unicode-max <interval-not> ] 0x10FFFF <interval-not> ] ! unicode-max
[ t ] [ 2 i2 in? ] unit-test [ t ] [ 2 i2 in? ] unit-test
[ f ] [ 3 i2 in? ] unit-test [ f ] [ 3 i2 in? ] unit-test