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

Basic stats.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 19:23:37 +01:00
parent ed6d9913de
commit e472292232
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
member-record.scm
View file

@ -36,6 +36,7 @@
member-student?
member-nick
member-id
member-existing?
member-record-tests!
)
@ -129,6 +130,12 @@
(define (member-id mr)
(mr-ref mr 'id))
;; Returns true if the member has joined.
(define (member-existing? mr)
(let ((joined (mr-ref mr 'joined)))
(and joined
(month<? joined (*current-month*)))))
;; Performs module self-tests.
(define (member-record-tests!)
(run-tests