Guile Freenet
 
(drak)
2016-03-31: datehint: only 10 downloads per processor

datehint: only 10 downloads per processor

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -208,7 +208,7 @@
                                     (month (string->number (list-ref (string-split date #\-) 2)))
                                     (min-week (* month 4))) ; avoid trying to download weeks which cannot be available.
                                (delete #f ;; only return the filenames of successful downloads 
-                                       (n-par-map 52 (lambda (week)
+                                       (n-par-map 10 (lambda (week)
                                                        (if (< week min-week) ; avoid weeks earlier than the date in the yearly date hint
                                                            #f
                                                            (download-by-weekly-date-hint uri year week)))