diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-29 13:45:29 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-29 13:45:29 +0100 |
| commit | 086ba55a15dc04914cba500f7ead61dec5490162 (patch) | |
| tree | c2147f7f7d7802b43b44e90c37de802761a31b8c /debug.rkt | |
| parent | f54e5bda270d55a91f62be9cacbbcd1d3f1a0884 (diff) | |
Add debug facilities.
Diffstat (limited to 'debug.rkt')
| -rw-r--r-- | debug.rkt | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/debug.rkt b/debug.rkt new file mode 100644 index 0000000..0d93557 --- /dev/null +++ b/debug.rkt @@ -0,0 +1,11 @@ +#lang racket + +(provide debug-enabled? + debug-log) + +(define debug-enabled? + (make-parameter (let ([env (getenv "FERTI_DEBUG")]) (and env (equal? env "true"))))) + +(define (debug-log message) + (when (debug-enabled?) + (displayln message))) |