Id extraction and filtering.
This commit is contained in:
parent
faf18b928e
commit
2c96707029
2 changed files with 21 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue