From 086ba55a15dc04914cba500f7ead61dec5490162 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sat, 29 Nov 2025 13:45:29 +0100
Subject: Add debug facilities.

---
 debug.rkt | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 debug.rkt

(limited to 'debug.rkt')

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)))
-- 
cgit v1.2.3