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))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;