Psst.. new poll here.
[email protected] webmail now available. Want one? Go here.
Cannot use outlook/hotmail/live here to register as they blocking our mail servers. #microsoftdeez
Obey the Epel!
Paste
Pasted as Scheme by amz3 ( 6 years ago )
(define (list-posts-query)
;; SELECT body, time FROM post ORDERY BY time DESC
(reverse! (sort! (run* (post/body post/time)
(fresh (vote?)
(fs:queryo vote? 'kind 'post)
(fs:queryo vote? 'post/body post/body)
(fs:queryo vote? 'post/time post/time)))
(lambda (a b) (< (list-ref a 1) (list-ref b 1))))))
Revise this Paste