use ${ in some nurbs tests

diff --git a/extra/nurbs/nurbs-tests.factor b/extra/nurbs/nurbs-tests.factor
index db606f9c5cb9a753b4b16567fcbd0d0b33683d52..191c2af7ca1d654a13c8826ff4b7283e60ab7984 100644 (file)
--- a/extra/nurbs/nurbs-tests.factor
+++ b/extra/nurbs/nurbs-tests.factor
@@ -11,13 +11,13 @@ CONSTANT: -√2/2 $[ 0.5 sqrt neg ]
 ! unit circle as NURBS
 3 {
     { 1.0 0.0 1.0 }
-    { $ √2/2 $ √2/2 $ √2/2 }
+    ${ √2/2 √2/2 √2/2 }
     { 0.0 1.0 1.0 }
-    { $ -√2/2 $ √2/2 $ √2/2 }
+    ${ -√2/2 √2/2 √2/2 }
     { -1.0 0.0 1.0 }
-    { $ -√2/2 $ -√2/2 $ √2/2 }
+    ${ -√2/2 -√2/2 √2/2 }
     { 0.0 -1.0 1.0 }
-    { $ √2/2 $ -√2/2 $ √2/2 }
+    ${ √2/2 -√2/2 √2/2 }
     { 1.0 0.0 1.0 }
 } { 0.0 0.0 0.0 0.25 0.25 0.5 0.5 0.75 0.75 1.0 1.0 1.0 } <nurbs-curve> test-nurbs set
 
@@ -26,7 +26,7 @@ CONSTANT: -√2/2 $[ 0.5 sqrt neg ]
 [ t ] [ test-nurbs get 0.5   eval-nurbs {  -1.0   0.0 } 0.00001 v~ ] unit-test
 [ t ] [ test-nurbs get 0.75  eval-nurbs {   0.0  -1.0 } 0.00001 v~ ] unit-test
 
-[ t ] [ test-nurbs get 0.125 eval-nurbs { $  √2/2 $  √2/2 } 0.00001 v~ ] unit-test
-[ t ] [ test-nurbs get 0.375 eval-nurbs { $ -√2/2 $  √2/2 } 0.00001 v~ ] unit-test
-[ t ] [ test-nurbs get 0.625 eval-nurbs { $ -√2/2 $ -√2/2 } 0.00001 v~ ] unit-test
-[ t ] [ test-nurbs get 0.875 eval-nurbs { $  √2/2 $ -√2/2 } 0.00001 v~ ] unit-test
+[ t ] [ test-nurbs get 0.125 eval-nurbs ${ √2/2 √2/2 } 0.00001 v~ ] unit-test
+[ t ] [ test-nurbs get 0.375 eval-nurbs ${ -√2/2 √2/2 } 0.00001 v~ ] unit-test
+[ t ] [ test-nurbs get 0.625 eval-nurbs ${ -√2/2 -√2/2 } 0.00001 v~ ] unit-test
+[ t ] [ test-nurbs get 0.875 eval-nurbs ${ √2/2 -√2/2 } 0.00001 v~ ] unit-test