diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 19:47:51 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 19:47:51 +0100 |
commit | 497e98ec21fcdb38f30d3e89cf6b5a7c14da3bf5 (patch) | |
tree | 4eee0201c3020a4e14644bb6c5ecae5c20decbaf /vcalendar/recurrence | |
parent | Fix imports for (vcalendar recurrence parse). (diff) | |
download | calp-497e98ec21fcdb38f30d3e89cf6b5a7c14da3bf5.tar.gz calp-497e98ec21fcdb38f30d3e89cf6b5a7c14da3bf5.tar.xz |
Rename build-recur-rules to parse-recurrence-rule.
Diffstat (limited to 'vcalendar/recurrence')
-rw-r--r-- | vcalendar/recurrence/generate.scm | 2 | ||||
-rw-r--r-- | vcalendar/recurrence/parse.scm | 10 |
2 files changed, 4 insertions, 8 deletions
diff --git a/vcalendar/recurrence/generate.scm b/vcalendar/recurrence/generate.scm index 222362fd..c9e1c114 100644 --- a/vcalendar/recurrence/generate.scm +++ b/vcalendar/recurrence/generate.scm @@ -105,4 +105,4 @@ (time-difference (attr event "DTEND") (attr event "DTSTART")))) - (recur-event-stream event (build-recur-rules (attr event "RRULE")))) + (recur-event-stream event (parse-recurrence-rule (attr event "RRULE")))) diff --git a/vcalendar/recurrence/parse.scm b/vcalendar/recurrence/parse.scm index 11dd2031..abead3a9 100644 --- a/vcalendar/recurrence/parse.scm +++ b/vcalendar/recurrence/parse.scm @@ -9,13 +9,9 @@ #:use-module (util) #:use-module (exceptions) #:use-module (ice-9 curried-definitions) - #:export (build-recur-rules) + #:export (parse-recurrence-rule)) - ) - - - -(define (build-recur-rules str) +(define (parse-recurrence-rule str) "Takes a RECUR value (string), and returuns a <recur-rule> object" (catch #t (lambda () (%build-recur-rules str)) @@ -42,7 +38,7 @@ #,obj (quote #,key) v))))))))) -;; A special form of case only useful in build-recur-rules above. +;; A special form of case only useful in parse-recurrence-rules above. ;; Each case is on the form (KEY val check-proc) where: ;; `key` is what should be matched against, and what is used for the setter ;; `val` is the value to bind to the loop object and |