brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Report member not found.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-21 22:04:06 +01:00
parent ac01370c67
commit f840c18b49
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
bbstool.scm
View file

@ -101,10 +101,17 @@ 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-))
(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-)
(find-member-by-nick MB (-member-nick-))
(let ((mr (find-member-by-nick MB (-member-nick-))))
(when (not mr)
(print "Member nick " (-member-nick-) " not found!"))
mr)
#f)))
;;