- (logf (string-append "downloading "
- (cdr (assoc 'filename sr))
- " from "
- (cadr (cdr (assoc 'peer sr)))
- ", "
- (number->string (cdr (assoc 'size sr)))
- " bytes (id "
- (number->string id)
- ", "
- (number->string (cdr (assoc 'slots sr)))
- " slots), timing out in "
- (number->string (max 10 (* (cdr (assoc 'resptime sr)) 2)))
- " seconds"))))
+ (logf "downloading ~a from ~a, ~a bytes (id ~a, ~a slots), timing out in ~a seconds"
+ (cdr (assoc 'filename sr))
+ (cadr (cdr (assoc 'peer sr)))
+ (number->string (cdr (assoc 'size sr)))
+ (number->string id)
+ (number->string (cdr (assoc 'slots sr)))
+ (number->string (max 10 (* (cdr (assoc 'resptime sr)) 2))))))