Simple usage of Racket's logging facility

logging.rkt

#lang racket/base

; One way to define a logger
(define lg (make-logger 'my-logger))
; Define a receiver for this logger, along with a log level
(define rc (make-log-receiver lg 'error)) ; also try with 'debug

; Another way to define a logger, with additional forms
(define-logger lg2)
(define rc2 (make-log-receiver lg2-logger 'debug))

; Listen for events on the two log-receivers
(void 
 (thread 
  (λ () (let loop () 
          (define v (sync rc rc2))
          (printf "[~a] ~a\n" (vector-ref v 0) (vector-ref v 1)) 
          (loop)))))

; Set the current logger 
(current-logger lg)

; Log messages for the current logger
(log-error "Exterminate!")
(log-fatal "Exterminate! Exterminate!")
(log-debug "What's the red button for?")

; Log messages for lg2 specifically
(log-lg2-info "We're on a mission from God.")