wes
/
LazyPlay
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Update links.rkt

master
Wesley Kerfoot 12 years ago
parent
05d4d1e356
commit
e0f4063430
1 changed files with 2 additions and 2 deletions
Unified View
  1. 4
      links.rkt

4
links.rkt
View File

@ -69,7 +69,7 @@
(define (get-category-list next url category) (define (get-category-list next url category)
(let ([pages '()]) (let ([pages '()])
(letrec ([acc-pages (λ (n) (letrec ([acc-pages (λ (n)
(match (eq? n *MAXPAGES*) (match (= n *MAXPAGES*)
[#t pages] [#t pages]
[#f (let ([res (parse-category-chunk (next))]) [#f (let ([res (parse-category-chunk (next))])
(match (empty? res) (match (empty? res)
@ -129,4 +129,4 @@
;(retrieve-videos "slowbeef") ;(retrieve-videos "slowbeef")
(provide get-category retrieve-videos no-more) (provide get-category retrieve-videos no-more)