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

Switch table to kwargs proc define, add more day/month support procedures.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-19 21:58:14 +02:00
parent c9ba551132
commit fac674f886
4 changed files with 25 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cal-period.scm
View file

@ -207,8 +207,8 @@
;; Returns string representing a month period with possibly open end.
(define (cal-period->string p)
(sprintf "~A..~A"
(cal-month->string (cal-period-since p))
(cal-month->string (cal-period-before p))))
(cal-day/month->string (cal-period-since p))
(cal-day/month->string (cal-period-before p))))
;; Returns a string representing a list of periods.
(define (cal-periods->string ps)