math.intervals.tests: clean up literal syntax

diff --git a/basis/math/intervals/intervals-tests.factor b/basis/math/intervals/intervals-tests.factor
index a1a4fa6e2fa083f1caeee9eb01b738e06885c47a..15e49caba5962cf3af29bd9550533699cb60e533 100644 (file)
--- a/basis/math/intervals/intervals-tests.factor
+++ b/basis/math/intervals/intervals-tests.factor
@@ -423,16 +423,16 @@ commutative-ops [
 
 { -16 15 } [ -16 4 1 <range> -1 15 1 <range> [ bitor ] cartesian-bounds ] unit-test
 
-{ $[ 0 255 [a,b] ] } [ 0 255 [a,b] dup interval-bitor ] unit-test
-{ $[ 0 511 [a,b] ] } [ 0 256 [a,b] dup interval-bitor ] unit-test
+${ 0 255 [a,b] } [ 0 255 [a,b] dup interval-bitor ] unit-test
+${ 0 511 [a,b] } [ 0 256 [a,b] dup interval-bitor ] unit-test
 
-{ $[ -128 127 [a,b] ] } [ -128 127 [a,b] dup interval-bitor ] unit-test
-{ $[ -256 255 [a,b] ] } [ -128 128 [a,b] dup interval-bitor ] unit-test
+${ -128 127 [a,b] } [ -128 127 [a,b] dup interval-bitor ] unit-test
+${ -256 255 [a,b] } [ -128 128 [a,b] dup interval-bitor ] unit-test
 
 { full-interval } [ full-interval -128 127 [a,b] interval-bitor ] unit-test
-{ $[ 0 [a,inf] ] } [ 0 [a,inf] dup interval-bitor ] unit-test
+${ 0 [a,inf] } [ 0 [a,inf] dup interval-bitor ] unit-test
 { full-interval } [ 0 [-inf,a] dup interval-bitor ] unit-test
-{ $[ 4 [a,inf] ] } [ 4 [a,inf] 3 [a,inf] interval-bitor ] unit-test
+${ 4 [a,inf] } [ 4 [a,inf] 3 [a,inf] interval-bitor ] unit-test
 
 ! interval-bitxor
 { 0 15 } [ 16 <iota> dup [ bitxor ] cartesian-bounds ] unit-test
@@ -443,15 +443,15 @@ commutative-ops [
 
 { -16 15 } [ -16 0 1 <range> dup [ bitxor ] cartesian-bounds ] unit-test
 
-{ $[ 0 255 [a,b] ] } [ 0 255 [a,b] dup interval-bitxor ] unit-test
-{ $[ 0 511 [a,b] ] } [ 0 256 [a,b] dup interval-bitxor ] unit-test
+${ 0 255 [a,b] } [ 0 255 [a,b] dup interval-bitxor ] unit-test
+${ 0 511 [a,b] } [ 0 256 [a,b] dup interval-bitxor ] unit-test
 
-{ $[ -128 127 [a,b] ] } [ -128 127 [a,b] dup interval-bitxor ] unit-test
-{ $[ -256 255 [a,b] ] } [ -128 128 [a,b] dup interval-bitxor ] unit-test
-{ $[ 0 127 [a,b] ] } [ -128 -1 [a,b] dup interval-bitxor ] unit-test
+${ -128 127 [a,b] } [ -128 127 [a,b] dup interval-bitxor ] unit-test
+${ -256 255 [a,b] } [ -128 128 [a,b] dup interval-bitxor ] unit-test
+${ 0 127 [a,b] } [ -128 -1 [a,b] dup interval-bitxor ] unit-test
 
 { full-interval } [ full-interval -128 127 [a,b] interval-bitxor ] unit-test
-{ $[ 0 [a,inf] ] } [ 0 [a,inf] dup interval-bitxor ] unit-test
-{ $[ 0 [a,inf] ] } [ -1 [-inf,a] dup interval-bitxor ] unit-test
-{ $[ 0 [a,inf] ] } [ 4 [a,inf] 3 [a,inf] interval-bitxor ] unit-test
+${ 0 [a,inf] } [ 0 [a,inf] dup interval-bitxor ] unit-test
+${ 0 [a,inf] } [ -1 [-inf,a] dup interval-bitxor ] unit-test
+${ 0 [a,inf] } [ 4 [a,inf] 3 [a,inf] interval-bitxor ] unit-test
 { full-interval } [ 4 [a,inf] -3 [a,inf] interval-bitxor ] unit-test