aliens/tekuti
1
0
Fork 0
Code Activity

optimization for with=foo

Browse source 
* tekuti/page.scm (page-feed-atom): Reduce "with=unknown" to nothing.
This commit is contained in:
Andy Wingo 2011-04-26 15:12:05 +02:00
parent cee672f117
commit 62a351d8d5
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tekuti/page.scm
View file

@ -347,9 +347,11 @@
(if (pair? with) (if (pair? with)
(fold (lambda (tag cont) (fold (lambda (tag cont)
(let ((posts (hash-ref tags tag '()))) (let ((posts (hash-ref tags tag '())))
(lambda (post) (if (pair? posts)
(or (member (post-key post) posts) (lambda (post)
(cont post))))) (or (member (post-key post) posts)
(cont post)))
cont)))
(lambda (post) #f) (lambda (post) #f)
with) with)
(lambda (post) #t))) (lambda (post) #t)))