From: Matt Birkholz <matt@birkholz.chandler.az.us>
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)