io.files.windows: ALIEN: -1 puts an expired alien in the image. -1 <alien>

it is then.

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 81e0274ca91f04044080ca3e54c7c0f36265ac95..577f1292d5f74977b0f8825565855fdf94401c39 100755 (executable)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -397,11 +397,12 @@ M: windows home
     ] if ;
 
 : file-streams ( path -- streams )
+    normalize-path
     FindStreamInfoStandard
     WIN32_FIND_STREAM_DATA <struct>
     0
     [ FindFirstStream ] 2keep drop
-    over ALIEN: -1 = [
+    over -1 <alien> = [
         2drop throw-win32-error
     ] [
         1vector swap file-streams-rest