core: Add the shuffler words but without primitives.

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

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 566f8c7a8c1cded73f9e0d3332db626b6c1e6f70..556bbfc4ee89be40eef6a62e3181d317ce852276 100755 (executable)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -388,7 +388,7 @@ M: windows home
     FindStreamInfoStandard
     WIN32_FIND_STREAM_DATA <struct>
     0
-    [ FindFirstStream ] 2keep drop
+    [ FindFirstStream ] keepd
     over -1 <alien> = [
         2drop throw-win32-error
     ] [