assert-no-rings ( face -- )

Vocabulary

euler.operators

Inputs

face

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: euler.operators

: assert-no-rings ( face -- )
    dup next-ring>> [ has-rings ] [ drop ] if ;