brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Universal sorting of markers.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-19 21:15:56 +02:00
parent 0265dc3617
commit c9ba551132
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cal-period.scm
View file

@ -130,7 +130,7 @@
(define (sort-period-markers l)
(sort l
(lambda (a b)
(cal-month<? (cadr a) (cadr b)))))
(cal-day/month<? (cadr a) (cadr b)))))
;; Converts list of start/stop markers to list of pairs of months -
;; periods. The markers are lists in the form (start/stop cal-month).