- [(list* p1 p2 ps)
- (let* ([n1 (Peer-nick p1)]
- [n2 (Peer-nick p2)]
- [p (cond
- ; TODO Try to pick from nicks db: preferred, otherwise seen
- [(and (not n1) (not n2)) p1] ; TODO update with most-common nick
- [(and n1 n2 ) p1] ; TODO compare which is more-common
- [(and n1 (not n2)) p1]
- [(and (not n1) n2) p2]
- [else
- (raise 'impossible)])])
- (merge (cons p ps)))]))
- (sort (map merge (group-by Peer-url-str (append* peer-sets)))
+ [(list* p1 p2 ps) (merge-n (cons (merge-2 p1 p2) ps))]))
+ (sort (map merge-n (group-by Peer-url-str (append* peer-sets)))