1 #lang racket 2 3 (provide debug-enabled? 4 debug-log) 5 6 (define debug-enabled? 7 (make-parameter (let ([env (getenv "FERTI_DEBUG")]) (and env (equal? env "true"))))) 8 9 (define (debug-log message) 10 (when (debug-enabled?) 11 (displayln message))) 12