continuations[-docs]: add the finally word

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

diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor
index 93a7d6f9697be8cf681553a927d4c727fe5ae81d..ec7615677582415c24de59e4d1c3a1ca77b6631d 100644 (file)
--- a/basis/io/directories/windows/windows.factor
+++ b/basis/io/directories/windows/windows.factor
@@ -84,4 +84,4 @@ M: windows (directory-entries) ( path -- seq )
             produce nip
             over name>> "." = [ nip ] [ swap prefix ] if
         ]
-    ] [ drop '[ _ FindClose win32-error=0/f ] ] 2bi [ ] cleanup ;
+    ] [ drop '[ _ FindClose win32-error=0/f ] ] 2bi finally ;