with-locked-model ( model quot -- )


Vocabulary
models

Inputs
modelan object
quotan 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