|
|
|
@ -7,7 +7,6 @@
|
|
|
|
|
|
|
|
|
|
|
|
; todo: contracts, tests, docs
|
|
|
|
; todo: contracts, tests, docs
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; debug utilities
|
|
|
|
; debug utilities
|
|
|
|
(define months (list "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
|
|
|
|
(define months (list "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
|
|
|
|
|
|
|
|
|
|
|
|
@ -57,7 +56,6 @@
|
|
|
|
;; log-pollen-info, and log-pollen-debug
|
|
|
|
;; log-pollen-info, and log-pollen-debug
|
|
|
|
(define-logger pollen)
|
|
|
|
(define-logger pollen)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define-syntax (make-message-logger-functions stx)
|
|
|
|
(define-syntax (make-message-logger-functions stx)
|
|
|
|
(syntax-case stx ()
|
|
|
|
(syntax-case stx ()
|
|
|
|
[(_ stem)
|
|
|
|
[(_ stem)
|
|
|
|
|
