+ (set! clean-closed-connections
+ (lambda (conns)
+ (cond ((null? conns) '())
+ (else
+ (let* ((cli (car conns)) (sock (car cli)))
+ (cond ((port-closed? sock)
+ (clean-closed-connections (cdr conns)))
+ (else
+ (cons cli (clean-closed-connections (cdr conns))))))))))
+