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/parse.scm | |
| 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 '')
| -rw-r--r-- | vcalendar/recurrence/parse.scm | 10 |
1 files changed, 3 insertions, 7 deletions
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 |