From 9c94e6ec731ce433aadf12eae22d50e8fec7a91b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 23:46:57 +0200 Subject: Remove (add|remove)-day, and month[+-]. Procedures where overly specific, and doing it manually was almost no more work. --- tests/test/html/caltable.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'tests/test/html/caltable.scm') diff --git a/tests/test/html/caltable.scm b/tests/test/html/caltable.scm index d9eeca3e..f64f8775 100644 --- a/tests/test/html/caltable.scm +++ b/tests/test/html/caltable.scm @@ -101,5 +101,8 @@ (time (@ (datetime "2022-05-01")) 1))) (parameterize ((week-start mon)) - (cal-table start-date: #2022-04-01 end-date: #2022-04-30 next-start: month+ prev-start: month-))) + (cal-table start-date: #2022-04-01 + end-date: #2022-04-30 + next-start: (lambda (d) (date+ d (date month: 1))) + prev-start: (lambda (d) (date- d (date month: 1)))))) -- cgit v1.2.3