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

Period matching.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 20:29:11 +01:00
parent 1880239973
commit 7e171bbcef
2 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
member-record.scm
View file

@ -154,6 +154,13 @@
(loop (cdr fmtl)
(cons (make-string 1 (car fmtl)) resl)))))))
;; Returns the number of months the user is suspended. Zero if not
;; suspended.
(define (member-suspended-month mr)
(if (member-suspended? mr)
1
0))
;; Performs module self-tests.
(define (member-record-tests!)
(run-tests