New runtime ASSERT syntax conflicts with local assert binding.

Rename the assert procedure VALUE-ASSERT, like PREDICATE-ASSERTION.

diff --git a/tests/runtime/test-division.scm b/tests/runtime/test-division.scm
index 6eee07f66e38c7d82c6f4b8a50c304ead6d9621a..69e9c8088f89076520138abfbd4bf5e172e0d5bc 100644 (file)
--- a/tests/runtime/test-division.scm
+++ b/tests/runtime/test-division.scm
@@ -212,7 +212,7 @@
 
 (define (assert-integral-quotient n d q r)
   n d r                                 ;ignore
-  (assert integer? "integer" q))
+  (value-assert integer? "integer" q))
 
 (define-test 'INTEGRAL-QUOTIENT-TESTS:CEILING
   (lambda () (randomly-test-properties ceiling/ assert-integral-quotient)))

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 1d853590b79af92fd1779f05bc147c95aecc49a1..e2f130a48793b3d991e5cf882912eaf255b2a070 100644 (file)
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -336,7 +336,7 @@ USA.
                  (condition/restarts condition)
                  (list 'FAILURE failure)))
 \f
-(define-for-tests (assert predicate description value . properties)
+(define-for-tests (value-assert predicate description value . properties)
   (%assert predicate value description properties))
 
 (define-for-tests (predicate-assertion predicate description)