debug.rkt


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