Remove old util-kwargs, replace with Racket-compatible define*/lambda* forms.

This commit is contained in:
Dominik Pantůček 2023-05-25 14:43:01 +02:00
parent d24526b765
commit 963d3069e9
6 changed files with 399 additions and 52 deletions

View file

@ -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?