diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2024-01-20 22:58:16 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2024-01-20 22:58:16 +0200 |
| commit | 351829f43fef1ef758defdb22316b6a0d848e530 (patch) | |
| tree | a2d8ea7a6d1bfd61dca59f5b6ab57a8e0c868e29 /utils.scm | |
| parent | 533b58c2dc692259a2dc5f47fc4b292e570bacb6 (diff) | |
Work on apply
Diffstat (limited to 'utils.scm')
| -rw-r--r-- | utils.scm | 14 |
1 files changed, 14 insertions, 0 deletions
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 ...))))))) + |