(define-module (catbird config)
  #:use-module (oop goops)
  #:export (developer-mode?
            <catbird-metaclass>
            define-root-class))

(define developer-mode?
  (equal? (getenv "CATBIRD_DEV_MODE") "1"))

(define <catbird-metaclass>
  (if developer-mode? <redefinable-class> <class>))

(define-syntax-rule (define-root-class name (supers ...) args ...)
  (define-class name (supers ...)
    args ...
    #:metaclass <catbird-metaclass>))