1 2 3 4 5 6 7 8 9 10 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)))