pop-sharpness ( -- sharp? )

Vocabulary

euler.b-rep

Inputs

None

Outputs

sharp?

an object

Definition

USING: kernel namespaces sequences ;

IN: euler.b-rep

: pop-sharpness ( -- sharp? )
    sharpness-stack get dup length 1 = [ first ] [ pop ] if ;