Add ASSERT macro.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 4888170f1ab7e6cca9a6241b3bd775a84153c132..76efa17e275bab488d672631826d1228f360e75b 100644 (file)
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -600,4 +600,10 @@ USA.
     ((BEGIN0 form0 form1+ ...)
      (LET ((RESULT form0))
        form1+ ...
-       RESULT))))
\ No newline at end of file
+       RESULT))))
+
+(define-syntax :assert
+  (syntax-rules ()
+    ((ASSERT condition)
+     (IF (NOT condition)
+         (ERROR "Assertion failed:" 'condition)))))
\ No newline at end of file

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 67dd38317ef4cb4cf10755543bb4b1f9cf87b4b0..15198d5659ac7f4fc9fc03f47dbdabf348c25133 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4766,6 +4766,7 @@ USA.
          (access :access)
          (and :and)
          (and-let* :and-let*)
+         (assert :assert)
          (begin0 :begin0)
          (case :case)
          (cond :cond)