diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 14:09:27 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 14:09:27 +0200 |
commit | 11698ee4f899b4555847534b83a7dc98b4c05cb6 (patch) | |
tree | fc4d1c7d1064ef38e35e53690a5913fba1d8c8e6 | |
parent | VComponent describe outputs line numbers when available. (diff) | |
download | calp-11698ee4f899b4555847534b83a7dc98b4c05cb6.tar.gz calp-11698ee4f899b4555847534b83a7dc98b4c05cb6.tar.xz |
Add some type signatures.
-rw-r--r-- | module/vcomponent/recurrence/generate.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index c272e907..69105fcc 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -222,6 +222,8 @@ extension-rule)) +;; (or 'YEARLY 'MONTHLY 'WEEKLY 'HOURLY 'MINUTELY 'SECONDLY) +;; → <datetime> (define (make-date-increment rr) (case (freq rr) [(YEARLY) (datetime date: (date year: (interval rr)))] @@ -309,12 +311,15 @@ (limiters->predicate (all-limiters rrule)) date-stream))) +;; (a := <date|datetime>) => <rrule>, a → (stream a) (define-stream (generate-posibilities rrule start-date) (limit-recurrence-set rrule (extend-recurrence-set rrule start-date))) + +;; Recurring <vcomponent> → (stream <date|datetime>) (define-stream (rrule-instances event) (define rrule (prop event 'RRULE)) |