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

17
bbstool.scm
View file

@ -101,11 +101,18 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(define MB (load-members (*members-directory*) #t)) (define MB (load-members (*members-directory*) #t))
;; If a member is specified by either id or nick, get its record ;; If a member is specified by either id or nick, get its record
(define mr (if (-member-id-) (define mr
(find-member-by-id MB (-member-id-)) (if (-member-id-)
(if (-member-nick-) (let ((mr (find-member-by-id MB (-member-id-))))
(find-member-by-nick MB (-member-nick-)) (when (not mr)
#f))) (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)))
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;