diff options
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))) |