Porting to new calendar modules.

This commit is contained in:
Dominik Pantůček 2023-05-09 22:56:50 +02:00
parent 21a58e9536
commit cc463991c1
10 changed files with 57 additions and 545 deletions

View file

@ -34,16 +34,16 @@
)
(import scheme
period)
cal-period)
;; Convert into lookups - a list of (list period regular student)
(define member-fees-lookup-table
(make-period-lookup-table
(make-cal-period-lookup-table
'(((2010 1) 500 250))))
;; Exchange rates
(define exchange-rates-lookup-table
(make-period-lookup-table
(make-cal-period-lookup-table
'(((2010 1) 25))))
;; How long the member can be suspended without any action required?