opposite ( edge quot: ( edge -- edge' ) -- edge )

Vocabulary

euler.b-rep

Inputs

edge	an object
quot	a quotation with stack effect ( edge -- edge' )

Outputs

edge

an object

Definition

USING: kernel ;

IN: euler.b-rep

: opposite ( edge quot: ( edge -- edge' ) -- edge )
    dupd (opposite) ; inline