2016-02-03: crawl the whole WoT.

crawl the whole WoT.

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -188,6 +188,6 @@
   (let ((seed-id (if (null? (cdr args))
                      seed-id
                      (car (cdr args)))))
-    (write (download-by-date-hint seed-id))))
-    ;; (map download-by-date-hint
-    ;;     (crawl-wot seed-id))))
+    ;; (write (download-by-date-hint seed-id))
+    (map download-by-date-hint
+         (crawl-wot seed-id))))