From 51ecaa5ab4c1a14be397ae1b6415638754a7646c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 2 Nov 2015 21:18:49 -0800
Subject: [PATCH] io.files.windows: ALIEN: -1 puts an expired alien in the
image. -1 <alien> it is then.
---
basis/io/files/windows/windows.factor | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 81e0274ca9..577f1292d5 100755
--- 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