From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 7 Nov 2018 05:35:36 +0000 (+0000)
Subject: Missed a run-sub-test.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~116^2~33
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7745e04b400029d52fa7f4eff56fbf71530464fc;p=mit-scheme.git

Missed a run-sub-test.
---

diff --git a/tests/runtime/test-floenv.scm b/tests/runtime/test-floenv.scm
index b0cd62e8c..58146a7fc 100644
--- 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)))