assert-ring-of ( ring face -- )

Vocabulary

euler.operators

Inputs

ring	an object
face	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: euler.operators

: assert-ring-of ( ring face -- ) [ base-face>> ] dip assert= ;