continuations[-docs]: add the finally word

[factor.git] / basis / unix / groups / groups.factor

diff --git a/basis/unix/groups/groups.factor b/basis/unix/groups/groups.factor
index b43f8d43acd63c783af4e00a8af8d5a8a487728e..92cf9f258fbf115bddf49cc8c1b1d876eecd1418 100644 (file)
--- a/basis/unix/groups/groups.factor
+++ b/basis/unix/groups/groups.factor
@@ -115,14 +115,14 @@ GENERIC: set-effective-group ( obj -- )
 
 : (with-real-group) ( string/id quot -- )
     '[ _ set-real-group @ ]
-    real-group-id '[ _ set-real-group ] [ ] cleanup ; inline
+    real-group-id '[ _ set-real-group ] finally ; inline
 
 : with-real-group ( string/id/f quot -- )
     over [ (with-real-group) ] [ nip call ] if ; inline
 
 : (with-effective-group) ( string/id quot -- )
     '[ _ set-effective-group @ ]
-    effective-group-id '[ _ set-effective-group ] [ ] cleanup ; inline
+    effective-group-id '[ _ set-effective-group ] finally ; inline
 
 : with-effective-group ( string/id/f quot -- )
     over [ (with-effective-group) ] [ nip call ] if ; inline