Fix paste order

db4
Slava Pestov 2008-09-23 14:06:49 -05:00
parent a2a1a51765
commit bb9d24c18a
1 changed files with 6 additions and 4 deletions

View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license.
USING: namespaces assocs sorting sequences kernel accessors
hashtables sequences.lib db.types db.tuples db combinators
calendar calendar.format math.parser syndication urls xml.writer
xmode.catalog validators
calendar calendar.format math.parser math.order syndication urls
xml.writer xmode.catalog validators
html.forms
html.components
html.templates.chloe
@ -58,7 +58,9 @@ TUPLE: paste < entity annotations ;
swap >>id ;
: pastes ( -- pastes )
f <paste> select-tuples ;
f <paste> select-tuples
[ [ date>> ] compare ] sort
reverse ;
TUPLE: annotation < entity parent ;
@ -111,7 +113,7 @@ M: annotation entity-url
<feed-action>
[ pastebin-url ] >>url
[ "Factor Pastebin" ] >>title
[ pastes <reversed> ] >>entries ;
[ pastes ] >>entries ;
! ! !
! PASTES