(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)))))))))