Report member not found.

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