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

it is then.
2015-11-02 21:18:49 -08:00 · 2015-11-02 21:18:49 -08:00 · 51ecaa5ab4
parent d645b2e17c
commit 51ecaa5ab4
1 changed files with 2 additions and 1 deletions
--- 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