From 757d015598cdfcc377e0b879fde8186165098b6a Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Mon, 21 May 2012 11:10:40 -0700 Subject: [PATCH] Make ASSERT pass along arguments to ERROR. --- src/runtime/mit-macros.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))))) -- 2.25.1