diff options
| -rw-r--r-- | rent.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rent.scm b/rent.scm index 4d4855e..db047b7 100644 --- a/rent.scm +++ b/rent.scm @@ -148,6 +148,10 @@ somewhere in @var{html}, a string." @code{#f} if @var{n} is 0 and @code{#t} otherwise." (not (zero? n))) +(define* (date day month #:optional (year (date-year (current-date)))) + "Construct a @code{<date>} object." + (make-date 0 0 0 0 day month year (date-zone-offset (current-date)))) + (define (date+ date days) "Add @var{days} number of days to @var{date}." (time-utc->date |