Remove old util-kwargs, replace with Racket-compatible define*/lambda* forms.
This commit is contained in:
parent
d24526b765
commit
963d3069e9
6 changed files with 399 additions and 52 deletions
|
@ -77,7 +77,7 @@
|
|||
progress
|
||||
mbase-dir
|
||||
util-tag
|
||||
util-kwargs
|
||||
racket-kwargs
|
||||
util-dict-bst)
|
||||
|
||||
;; Constant unique tag
|
||||
|
@ -256,9 +256,9 @@
|
|||
|
||||
;; Returns the list of emails of all active members sorted
|
||||
;; alphabetically
|
||||
(define-kwproc (mbase-active-emails mb
|
||||
(#:active active #t)
|
||||
(#:suspended suspended #f))
|
||||
(define* (mbase-active-emails mb
|
||||
#:active (active #t)
|
||||
#:suspended (suspended #f))
|
||||
(sort
|
||||
(filter
|
||||
string?
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue