! FIXME: these are awful, need an in-place sort!

: sort-with! ( seq quot: ( elt -- key ) -- )
    dupd sort-with swap 0 swap copy ; inline

: inv-sort-with! ( seq quot: ( elt -- key ) -- )
    dupd inv-sort-with swap 0 swap copy ; inline