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

fix win32 directory primitive

darcs
erg 2006-10-20 01:18:41 +00:00
parent 31bac04760
commit 3b88353ff4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vm/os-windows.c
View File

@ -114,18 +114,19 @@ void primitive_stat(void)
void primitive_read_dir(void)
{
F_STRING *path;
HANDLE dir;
WIN32_FIND_DATA find_data;
F_ARRAY *result;
CELL result_count = 0;
char path[MAX_PATH + 4];
maybe_gc(0);
result = array(ARRAY_TYPE,100,F);
path = untag_string(dpop());
if (INVALID_HANDLE_VALUE != (dir = FindFirstFile(".\\*", &find_data)))
sprintf(path, "%s\\*", to_char_string(untag_string(dpop()),true));
if (INVALID_HANDLE_VALUE != (dir = FindFirstFile(path, &find_data)))
{
do
{