listing-sort-by ( seq quot: ( elt -- key ) -- sortedseq ) (original) (raw)

listing-sort-by ( seq quot: ( elt -- key ) -- sortedseq )

Vocabulary
http.server.static

Inputs

Outputs

Definition

USING: kernel sequences sorting ;

IN: http.server.static

: listing-sort-by ( seq quot: ( elt -- key ) -- sortedseq )
sort-by sort-asc? [ reverse ] unless ; inline