From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 24 Mar 2012 22:07:20 +0000 (+0000)
Subject: Merge branch 'master' of ssh://git.sv.gnu.org/srv/git/mit-scheme
X-Git-Tag: release-9.2.0~256^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5d9472fac4b16bcd88a436a300da6deb0307f229;p=mit-scheme.git

Merge branch 'master' of ssh://git.sv.gnu.org/srv/git/mit-scheme
---

5d9472fac4b16bcd88a436a300da6deb0307f229
diff --cc src/runtime/mit-macros.scm
index 76efa17e2,9bc9c5f5c..5c29dd57e
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@@ -600,10 -600,4 +600,10 @@@ USA
      ((BEGIN0 form0 form1+ ...)
       (LET ((RESULT form0))
         form1+ ...
 -       RESULT))))
 +       RESULT))))
 +
 +(define-syntax :assert
 +  (syntax-rules ()
 +    ((ASSERT condition)
 +     (IF (NOT condition)
-          (ERROR "Assertion failed:" 'condition)))))
++         (ERROR "Assertion failed:" 'condition)))))