From e0f40634304ee1435975d911b75d0a833a4f3d72 Mon Sep 17 00:00:00 2001
From: Wesley Kerfoot <kerfoow@mcmaster.ca>
Date: Tue, 8 Oct 2013 23:47:44 -0400
Subject: [PATCH] Update links.rkt

---
 links.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/links.rkt b/links.rkt
index e26ba67..3f464cf 100644
--- 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)
\ No newline at end of file
+(provide get-category retrieve-videos no-more)