Fix compile error

db4
U-SLAVA-DFB8FF805\Slava 2008-11-09 17:27:39 -06:00
parent 70d7c0ca20
commit 429fe85f46
1 changed files with 1 additions and 1 deletions

2
basis/io/windows/files/files.factor Normal file → Executable file
View File

@ -276,7 +276,7 @@ M: winnt file-system-info ( path -- file-system-info )
swap >>type
swap >>mount-point ;
: find-first-volume ( word -- string handle )
: find-first-volume ( -- string handle )
MAX_PATH 1+ <byte-array> dup length
dupd
FindFirstVolume dup win32-error=0/f