(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))))))
Add a code snippet to your website: www.paste.org