(module (acdwm util) (
                      define-public
                      ignore
                      DEBUG
                      dprint
                      )

  (import scheme (chicken base)
          (chicken port))

  (define-syntax define-public
    (syntax-rules ()
      ((define-public (name . arg) forms ...)
       (begin (export name)
              (define (name . arg) forms ...)))
      ((define-public (name args ...) forms ...)
       (begin (export name)
              (define (name args ...) forms ...)))
      ((define-public name value)
       (begin (export name)
              (define name value)))))

  (define (ignore . _) #f)

  (define (eprint . xs)
    (with-output-to-port (current-error-port)
      (lambda () (apply print xs))))

  (define DEBUG (make-parameter #f))

  (define (dprint . xs)
    (when (DEBUG)
      (apply eprint xs))))