From 319dea49745c0f1b7c95fe8e3078794407c4c7c6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 7 May 2021 16:42:25 +0530
Subject: Define when and unless sc macros.

* src/macros/macros.sc (when, unless): New macros.
---
 src/macros/macros.sc | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/macros')

diff --git a/src/macros/macros.sc b/src/macros/macros.sc
index ac9e6d7..5ba9e1f 100644
--- a/src/macros/macros.sc
+++ b/src/macros/macros.sc
@@ -17,6 +17,15 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with nsmc.  If not, see <https://www.gnu.org/licenses/>.
 
+(sc-define-syntax (when condition body ...)
+  (cond
+   (condition
+    body ...)))
+
+(sc-define-syntax (unless condition body ...)
+  (when (not condition)
+    body ...))
+
 (sc-define-syntax (for-i index limit body ...)
   (for ((define index int 0)
         (< index limit)
-- 
cgit v1.2.3