From 497e98ec21fcdb38f30d3e89cf6b5a7c14da3bf5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Mar 2019 19:47:51 +0100 Subject: Rename build-recur-rules to parse-recurrence-rule. --- vcalendar/recurrence/parse.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'vcalendar/recurrence/parse.scm') 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 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 -- cgit v1.2.3