Use new day comparison in day period subtype.

This commit is contained in:
Dominik Pantůček 2023-05-19 21:12:21 +02:00
parent 0db9f7d858
commit 0265dc3617

View file

@ -123,8 +123,7 @@
(cal-month<=? since before)) (cal-month<=? since before))
(and (cal-day? since) (and (cal-day? since)
(cal-day? before) (cal-day? before)
;; (cal-day<=? since before) (cal-day<=? since before))))))
)))))
;; Sorts period markers (be it start or end) chronologically and ;; Sorts period markers (be it start or end) chronologically and
;; returns the sorted list. ;; returns the sorted list.