delete-ring ( ring base-face -- )

Vocabulary

euler.b-rep

Inputs

ring	an object
base-face	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: euler.b-rep

: delete-ring ( ring base-face -- )
    2dup next-ring>> eq?
    [ [ next-ring>> ] dip next-ring<< ]
    [ next-ring>> delete-ring ] if ;