Fix compile error

2008-11-09 17:27:39 -06:00 · 2008-11-09 17:27:39 -06:00 · 429fe85f46
parent 70d7c0ca20
commit 429fe85f46
1 changed files with 1 additions and 1 deletions
--- a/basis/io/windows/files/files.factor
+++ b/basis/io/windows/files/files.factor
@ -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