continuations[-docs]: add the finally word

[factor.git] / basis / models / models.factor

diff --git a/basis/models/models.factor b/basis/models/models.factor
index 6d3a9a9e83241323667430cf448c26028641cc0e..0fa5f2079e54ea9a4a43c5cd50f83eb9c1899d71 100644 (file)
--- a/basis/models/models.factor
+++ b/basis/models/models.factor
@@ -68,7 +68,7 @@ GENERIC: model-changed ( model observer -- )
 : with-locked-model ( model quot -- )
     [ '[ _ t >>locked? @ ] ]
     [ drop '[ f _ locked?<< ] ]
-    2bi [ ] cleanup ; inline
+    2bi finally ; inline
 
 GENERIC: update-model ( model -- )