(drak)
2016-02-16: remove limitation to 10 known IDs remove limitation to 10 known IDs
diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -142,7 +142,7 @@
(set! known (lset-union equal?
(list-ec (: u new) (wot-uri-key u))
known))
- (if (or (null? new) (> (length known) 10))
+ (if (null? new)
known
(lset-union equal? known (map crawl new)))))))))