Make ASSERT pass along arguments to ERROR.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 5c29dd57e9b90d0495d683cc26d2c48fa5a16eb9..f8860fb5fef5f5cf9515d83e32e1de251e53c717 100644 (file)
--- 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)))))