From 0bc80beb699000826b8e9415a7b254c92dc86a5a Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Wed, 24 Jan 2024 16:57:56 +0200 Subject: Do things --- utils.scm | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 utils.scm (limited to 'utils.scm') diff --git a/utils.scm b/utils.scm deleted file mode 100644 index 4647c07..0000000 --- a/utils.scm +++ /dev/null @@ -1,15 +0,0 @@ -(module utils (*should-run-inline-tests?* inline-tests) - (import (scheme) - (chicken process-context)) - - (define *should-run-inline-tests?* - (let ((v (get-environment-variable "INLINE_TESTS"))) - (and (string? v) - (string=? v "1")))) - - (define-syntax inline-tests - (syntax-rules () - ((_ expr ...) - (if *should-run-inline-tests?* - (begin expr ...)))))) - -- cgit v1.3