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

fix error from having tuple and generic with same name. annoying...

db4
Doug Coleman 2008-09-19 18:33:28 -05:00
parent 4eb3f73483
commit f1205587a1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,7 +147,7 @@ SYMBOLS: +read-only+ +hidden+ +system+
FILE_ATTRIBUTE_DIRECTORY mask? +directory+ +regular-file+ ? ; FILE_ATTRIBUTE_DIRECTORY mask? +directory+ +regular-file+ ? ;
: WIN32_FIND_DATA>file-info ( WIN32_FIND_DATA -- file-info ) : WIN32_FIND_DATA>file-info ( WIN32_FIND_DATA -- file-info )
[ file-info new ] dip [ \ file-info new ] dip
{ {
[ WIN32_FIND_DATA-dwFileAttributes win32-file-type >>type ] [ WIN32_FIND_DATA-dwFileAttributes win32-file-type >>type ]
[ [
@ -168,7 +168,7 @@ SYMBOLS: +read-only+ +hidden+ +system+
] keep ; ] keep ;
: BY_HANDLE_FILE_INFORMATION>file-info ( HANDLE_FILE_INFORMATION -- file-info ) : BY_HANDLE_FILE_INFORMATION>file-info ( HANDLE_FILE_INFORMATION -- file-info )
[ file-info new ] dip [ \ file-info new ] dip
{ {
[ BY_HANDLE_FILE_INFORMATION-dwFileAttributes win32-file-type >>type ] [ BY_HANDLE_FILE_INFORMATION-dwFileAttributes win32-file-type >>type ]
[ [