From f25a4f924ea08c270bfdf6c9878daf8b6db1e5f3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 10 May 2023 21:32:50 +0200 Subject: [PATCH] Missing keys are problem. --- src/brmember.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/src/brmember.scm b/src/brmember.scm index 41a15c8..49892e7 100644 --- a/src/brmember.scm +++ b/src/brmember.scm @@ -262,6 +262,7 @@ ;; True if member record is OK (define (brmember-has-problems? mr) (or (member-has-errors? mr) + (not (null? (brmember-missing-keys mr))) (not (brmember-usable? mr)) (not (is-4digit-prime? (brmember-id mr)))))