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

Generalize period lookups.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 20:56:42 +02:00
parent 51b3b6f5b7
commit e9745bc64a
2 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

7
member-fees.scm
View file

@ -51,13 +51,10 @@
members-base
period)
;; Specifications of fees, regular and student must be in all
(define member-fees-lookup-source
'(((2010 1) #f 500 250)))
;; Convert into lookups - a list of (list period regular student)
(define member-fees-lookup-table
(make-period-lookup-table member-fees-lookup-source))
(make-period-lookup-table
'(((2010 1) 500 250))))
;; Returns a matching list of (list regular student)
(define (lookup-member-fees)