diff --git a/src/configuration.scm b/src/configuration.scm index 6eb07ed..55e8931 100644 --- a/src/configuration.scm +++ b/src/configuration.scm @@ -48,13 +48,6 @@ month util-parser) - ;; Current month - if changed, we get the actual state for given month. - (define *current-month* - (make-parameter - (let ((d (seconds->local-time (current-seconds)))) - (list (+ 1900 (vector-ref d 5)) - (+ (vector-ref d 4) 1))))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Initial configuration from *etc-hackerbase*