with-locked-model ( model quot -- )

Vocabulary

models

Inputs

model	an object
quot	an object

Outputs

None

Definition

USING: accessors continuations kernel ;

IN: models

: with-locked-model ( model quot -- )
    [ '[ _ t >>locked? @ ] ] [ drop '[ f _ locked?<< ] ] 2bi
    finally ; inline