Update links.rkt

12 years ago · e0f4063430
1 changed files with 2 additions and 2 deletions
--- a/links.rkt
+++ b/links.rkt
@ -69,7 +69,7 @@
 (define (get-category-list next url category)
  (let ([pages '()])
    (letrec ([acc-pages (λ (n)
-                (match (eq? n *MAXPAGES*)
+                (match (= n *MAXPAGES*)
                    [#t pages]
                    [#f (let ([res (parse-category-chunk (next))])
                          (match (empty? res)