continuations[-docs]: add the finally word

[factor.git] / basis / io / files / info / windows / windows.factor

diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor
index 702d83245415456e369e19bb963f8ea06053580b..71f8e06f695203f415f5c2c9ccca3d87dc388a23 100644 (file)
--- a/basis/io/files/info/windows/windows.factor
+++ b/basis/io/files/info/windows/windows.factor
@@ -194,7 +194,7 @@ CONSTANT: names-buf-length 16384
             [ _ find-next-volume dup ] [ ] produce nip
             swap prefix
         ]
-    ] [ '[ _ FindVolumeClose win32-error=0/f ] ] bi [ ] cleanup ;
+    ] [ '[ _ FindVolumeClose win32-error=0/f ] ] bi finally ;
 
 ! Windows may return a volume which looks up to path ""
 ! For now, treat it like there is not a volume here