push-sorted ( obj dlist -- dlist-node )

Vocabulary

dlists

Inputs

obj	an object
dlist	an object

Outputs

dlist-node

an object

Definition

USING: kernel math.order ;

IN: dlists

: push-sorted ( obj dlist -- dlist-node )
    dupd [ before? ] with push-before ; inline