(module debug-logging

(current-debug-port debug-log-prefix debug)

(import chicken scheme)

(define current-debug-port
  (make-parameter (current-output-port)))

(define debug-log-prefix
  (make-parameter "[DEBUG] "))

(import-for-syntax (only extras fprintf))

(define-syntax debug
  (syntax-rules ()
    ((_ fmt args ...)
     (cond-expand
      (debug-logging-on
       (display (debug-log-prefix) (current-debug-port))
       (fprintf (current-debug-port) fmt args ...)
       (newline (current-debug-port)))
      (else)))))

)