sort-disposables ( seq -- seq' )

Vocabulary

tools.destructors.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: accessors destructors kernel sequences sorting ;

IN: tools.destructors.private

: sort-disposables ( seq -- seq' )
    [ disposable? ] partition [ [ id>> ] sort-by ] dip append ;