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? ] curry ] dip compose ]
    [ drop [ [ f ] ] dip [ locked?<< ] curry compose ] 2bi
    finally ; inline