Id extraction and filtering.

This commit is contained in:
Dominik Pantůček 2023-03-19 08:00:42 +01:00
parent faf18b928e
commit 2c96707029
2 changed files with 21 additions and 7 deletions

View file

@ -35,6 +35,7 @@
member-active?
member-student?
member-nick
member-id
member-record-tests!
)
@ -124,6 +125,10 @@
(define (member-nick mr)
(mr-ref mr 'nick))
;; Returns member id
(define (member-id mr)
(mr-ref mr 'id))
;; Performs module self-tests.
(define (member-record-tests!)
(run-tests