check-ring ( base-face face -- )

Vocabulary

euler.b-rep

Inputs

base-face	an object
face	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: euler.b-rep

: check-ring ( base-face face -- )
    [ check-face ] [ base-face>> assert= ] bi ;