From 166dca167c13b015ad8042d50058fb76b926da3f Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 9 May 2012 15:55:43 -0700 Subject: [PATCH] New runtime ASSERT syntax conflicts with local assert binding. Rename the assert procedure VALUE-ASSERT, like PREDICATE-ASSERTION. --- tests/runtime/test-division.scm | 2 +- tests/unit-testing.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/runtime/test-division.scm b/tests/runtime/test-division.scm index 6eee07f66..69e9c8088 100644 --- 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 1d853590b..e2f130a48 100644 --- a/tests/unit-testing.scm +++ b/tests/unit-testing.scm @@ -336,7 +336,7 @@ USA. (condition/restarts condition) (list 'FAILURE failure))) -(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) -- 2.25.1