continuations[-docs]: add the finally word

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

diff --git a/basis/unix/utmpx/utmpx.factor b/basis/unix/utmpx/utmpx.factor
index 6e78f12671a5bc3e39b27be31006156eee0a4567..c61f88d8c76e10e8bbab10747dca148ec5b7b06e 100644 (file)
--- a/basis/unix/utmpx/utmpx.factor
+++ b/basis/unix/utmpx/utmpx.factor
@@ -38,7 +38,7 @@ M: unix new-utmpx-record
     utmpx-record new ;
 
 : with-utmpx ( quot -- )
-    setutxent [ endutxent ] [ ] cleanup ; inline
+    setutxent [ endutxent ] finally ; inline
 
 : all-utmpx ( -- seq )
     [