continuations[-docs]: add the finally word

[factor.git] / basis / concurrency / locks / locks.factor

diff --git a/basis/concurrency/locks/locks.factor b/basis/concurrency/locks/locks.factor
index 9e56c0425309ffee69d39e5d9dc8cfe5f9459f39..69c6c8b4f8cc73f40a3c18b460dd297a00321d1a 100644 (file)
--- a/basis/concurrency/locks/locks.factor
+++ b/basis/concurrency/locks/locks.factor
@@ -27,7 +27,7 @@ TUPLE: lock threads owner reentrant? ;
 
 :: do-lock ( lock timeout quot acquire release -- )
     lock timeout acquire call
-    quot lock release curry [ ] cleanup ; inline
+    quot lock release curry finally ; inline
 
 : (with-lock) ( lock timeout quot -- )
     [ acquire-lock ] [ release-lock ] do-lock ; inline