Fix -problems.

This commit is contained in:
Dominik Pantůček 2023-04-04 23:01:53 +02:00
parent c17671e707
commit 09c9005a7b
2 changed files with 2 additions and 1 deletions

View file

@ -212,7 +212,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((gencards)
(apply cards-export MB (-fname-)))
((problems)
(let ((num (let loop ((mb MB)
(let ((num (let loop ((mb (members-base-members MB))
(num 0))
(if (null? mb)
num

View file

@ -29,6 +29,7 @@
members-base
(
load-members
members-base-members
find-member-by-id
find-member-by-nick
find-members-by-nick