From: Matt Birkholz Date: Wed, 9 May 2012 22:55:43 +0000 (-0700) Subject: New runtime ASSERT syntax conflicts with local assert binding. X-Git-Tag: release-9.2.0~247^2~13 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=166dca167c13b015ad8042d50058fb76b926da3f;p=mit-scheme.git 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 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)