Missed a run-sub-test.

diff --git a/tests/runtime/test-floenv.scm b/tests/runtime/test-floenv.scm
index b0cd62e8c3ae3d230ed534cb7e27351e7943d3c2..58146a7fcb535fd00d00c7e938aa9be1540c363d 100644 (file)
--- a/tests/runtime/test-floenv.scm
+++ b/tests/runtime/test-floenv.scm
@@ -84,7 +84,7 @@ USA.
              (i 0 (+ i 1)))
             ((not (and (pair? inputs) (pair? outputs))))
           (let ((input (car inputs)) (output (car outputs)))
-            (run-sub-test
+            (with-test-properties
              (lambda ()
                (assert-eqv
                 (flo:with-rounding-mode mode (lambda () (operator input)))