humani>=< ( obj1 obj2 -- >=< )

Vocabulary

sorting.human

Inputs

obj1	an object
obj2	an object

Outputs

>=<

an object

Definition

USING: kernel math.order sorting.human.private ;

IN: sorting.human

: humani>=< ( obj1 obj2 -- >=< )
    2dup (humani)>=< dup +eq+ eq? [ drop >=< ] [ 2nip ] if ;