From 351829f43fef1ef758defdb22316b6a0d848e530 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sat, 20 Jan 2024 22:58:16 +0200
Subject: Work on apply

---
 utils.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 utils.scm

(limited to 'utils.scm')

diff --git a/utils.scm b/utils.scm
new file mode 100644
index 0000000..a131717
--- /dev/null
+++ b/utils.scm
@@ -0,0 +1,14 @@
+(module utils (inline-tests)
+  (import scheme
+          (chicken base)
+          (chicken process-context))
+
+  (define-syntax inline-tests
+    (syntax-rules ()
+      ((_ expr ...)
+       (let* ((v (get-environment-variable "INLINE_TESTS"))
+              (should-run-inline-tests? (and (string? v)
+                                             (string=? v "1"))))
+         (if should-run-inline-tests?
+             (begin expr ...)))))))
+
-- 
cgit v1.3