steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

it is then.
db4
Doug Coleman 2015-11-02 21:18:49 -08:00
parent d645b2e17c
commit 51ecaa5ab4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/io/files/windows/windows.factor
View File

@ -397,11 +397,12 @@ M: windows home
] if ; ] if ;
: file-streams ( path -- streams ) : file-streams ( path -- streams )
normalize-path
FindStreamInfoStandard FindStreamInfoStandard
WIN32_FIND_STREAM_DATA <struct> WIN32_FIND_STREAM_DATA <struct>
0 0
[ FindFirstStream ] 2keep drop [ FindFirstStream ] 2keep drop
over ALIEN: -1 = [ over -1 <alien> = [
2drop throw-win32-error 2drop throw-win32-error
] [ ] [
1vector swap file-streams-rest 1vector swap file-streams-rest