From 9ae2e72045e293fa2dd3d2b6c9a335ca8a1edc5d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 30 Dec 2019 02:10:48 +0100
Subject: Rework vcomponent recurrence internals.

---
 module/vcomponent/recurrence/parse.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'module/vcomponent/recurrence/parse.scm')

diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm
index 04c785a4..680a818e 100644
--- a/module/vcomponent/recurrence/parse.scm
+++ b/module/vcomponent/recurrence/parse.scm
@@ -1,14 +1,16 @@
 (define-module (vcomponent recurrence parse)
+  #:duplicates (last)                   ; Replace @var{count}
+
+  #:export (parse-recurrence-rule)
+
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-19)           ; Datetime
   #:use-module (srfi srfi-19 util)
   #:use-module (srfi srfi-26)
   #:use-module ((vcomponent datetime) #:select (parse-datetime))
-  #:duplicates (last)                   ; Replace @var{count}
   #:use-module (vcomponent recurrence internal)
   #:use-module (util)
-  #:use-module (ice-9 match)
-  #:export (parse-recurrence-rule))
+  #:use-module (ice-9 match))
 
 
 ;; @example
@@ -76,7 +78,7 @@
           (else o)))))
 
    ;; obj
-   (make-recur-rule 1 'MO)
+   (make-recur-rule (interval 1) (wkst 'MO))
 
    ;; ((key val) ...)
    (map (cut string-split <> #\=)
-- 
cgit v1.2.3