From f840c18b494f2735fd854068202a3d01afe95b7c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 21 Mar 2023 22:04:06 +0100 Subject: [PATCH] Report member not found. --- bbstool.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/bbstool.scm b/bbstool.scm index cabfee4..bd681e4 100644 --- a/bbstool.scm +++ b/bbstool.scm @@ -101,11 +101,18 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (define MB (load-members (*members-directory*) #t)) ;; If a member is specified by either id or nick, get its record -(define mr (if (-member-id-) - (find-member-by-id MB (-member-id-)) - (if (-member-nick-) - (find-member-by-nick MB (-member-nick-)) - #f))) +(define mr + (if (-member-id-) + (let ((mr (find-member-by-id MB (-member-id-)))) + (when (not mr) + (print "Member id " (-member-id-) " not found!")) + mr) + (if (-member-nick-) + (let ((mr (find-member-by-nick MB (-member-nick-)))) + (when (not mr) + (print "Member nick " (-member-nick-) " not found!")) + mr) + #f))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;