same-edge? ( e1 e2 -- ? )

Vocabulary

euler.b-rep

Inputs

e1	an object
e2	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel ;

IN: euler.b-rep

: same-edge? ( e1 e2 -- ? )
    { [ eq? ] [ opposite-edge>> eq? ] } 2|| ;