Add global parameters module.

period.scm

@@ -28,7 +28,6 @@
 (module
  period
  (
-  *current-month*
   sort-period-markers
   period-markers->periods
   period->duration
@@ -49,13 +48,8 @@
 	 (chicken format)
 	 (chicken string)
 	 month
-	 testing)
-
- (define *current-month*
-   (make-parameter
-    (let ((d (seconds->local-time (current-seconds))))
-      (list (+ 1900 (vector-ref d 5))
-	    (vector-ref d 4)))))
+	 testing
+	 configuration)
 
  ;; Sorts period markers (be it start or end) chronologically and
  ;; returns the sorted list.