continuations[-docs]: add the finally word

[factor.git] / basis / io / directories / unix / unix.factor

diff --git a/basis/io/directories/unix/unix.factor b/basis/io/directories/unix/unix.factor
index 14a37f5bedf2fd5802527f6273fd63d69bc51ce8..2b989fe501b164d3fdb36d1082f89c2d5e11685d 100644 (file)
--- a/basis/io/directories/unix/unix.factor
+++ b/basis/io/directories/unix/unix.factor
@@ -42,7 +42,7 @@ M: unix copy-file ( from to -- )
 : with-unix-directory ( path quot -- )
     dupd '[ _ _
         [ opendir dup [ throw-errno ] unless ] dip
-        dupd curry swap '[ _ closedir io-error ] [ ] cleanup
+        dupd curry swap '[ _ closedir io-error ] finally
     ] with-directory ; inline
 
 : dirent-type>file-type ( type -- file-type )