Update links.rkt

11 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) 
@ -129,4 +129,4 @@

 ;(retrieve-videos "slowbeef")

-(provide get-category retrieve-videos no-more)
+(provide get-category retrieve-videos no-more)