remove a line of debugging
parent
dffb8c961b
commit
26806f9d7a
|
@ -284,7 +284,6 @@ TUPLE: win32-file-system-info < file-system-info max-component flags device-seri
|
||||||
|
|
||||||
M: winnt file-system-info ( path -- file-system-info )
|
M: winnt file-system-info ( path -- file-system-info )
|
||||||
normalize-path root-directory
|
normalize-path root-directory
|
||||||
! volume-information ( normalized-path -- volume-name volume-serial max-component flags type )
|
|
||||||
dup [ volume-information ] [ file-system-space ] bi
|
dup [ volume-information ] [ file-system-space ] bi
|
||||||
\ win32-file-system-info new
|
\ win32-file-system-info new
|
||||||
swap *ulonglong >>free-space
|
swap *ulonglong >>free-space
|
||||||
|
|
Loading…
Reference in New Issue