From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 21 May 2012 18:10:40 +0000 (-0700)
Subject: Make ASSERT pass along arguments to ERROR.
X-Git-Tag: release-9.2.0~247^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=757d015598cdfcc377e0b879fde8186165098b6a;p=mit-scheme.git

Make ASSERT pass along arguments to ERROR.
---

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 5c29dd57e..f8860fb5f 100644
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -604,6 +604,6 @@ USA.
 
 (define-syntax :assert
   (syntax-rules ()
-    ((ASSERT condition)
+    ((ASSERT condition . extra)
      (IF (NOT condition)
-         (ERROR "Assertion failed:" 'condition)))))
+         (ERROR "Assertion failed:" 'condition . extra)))))