+ (list->set (append peers
+ peers-mentioned
+ peers-all-prev))]
+ [n-peers-discovered
+ (set-count (set-subtract peers-all
+ (list->set peers-all-prev)))]
+ [peers-all
+ (peers-sort (set->list peers-all))])
+ (log-info "Discovered ~a new peers." n-peers-discovered)