(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