suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

properly #ifdef Windows-specific function

Browse Source 
svn: r5370
This commit is contained in:
Matthew Flatt 2007-01-17 00:53:27 +00:00
parent 58e05fbd65
commit 289df59e7f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/file.c
View File

@ -4398,10 +4398,12 @@ static Scheme_Object *expand_path(int argc, Scheme_Object *argv[])
return scheme_make_sized_path(filename, strlen(filename), 1); return scheme_make_sized_path(filename, strlen(filename), 1);
} }
#ifdef USE_FINDFIRST
void do_find_close(void *p) void do_find_close(void *p)
{ {
FIND_CLOSE(*(FF_HANDLE_TYPE *)p); FIND_CLOSE(*(FF_HANDLE_TYPE *)p);
} }
#endif
static Scheme_Object *do_directory_list(int break_ok, int argc, Scheme_Object *argv[]) static Scheme_Object *do_directory_list(int break_ok, int argc, Scheme_Object *argv[])
{ {