From 289df59e7f8bee7568a245670e7990ce67bdf2b3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Jan 2007 00:53:27 +0000
Subject: [PATCH] properly #ifdef Windows-specific function

svn: r5370
---
 src/mzscheme/src/file.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mzscheme/src/file.c b/src/mzscheme/src/file.c
index 3ac5424be1..952b7a46da 100644
--- a/src/mzscheme/src/file.c
+++ b/src/mzscheme/src/file.c
@@ -4398,10 +4398,12 @@ static Scheme_Object *expand_path(int argc, Scheme_Object *argv[])
     return scheme_make_sized_path(filename, strlen(filename), 1);
 }
 
+#ifdef USE_FINDFIRST
 void do_find_close(void *p) 
 {
   FIND_CLOSE(*(FF_HANDLE_TYPE *)p);
 }
+#endif
 
 static Scheme_Object *do_directory_list(int break_ok, int argc, Scheme_Object *argv[])
 {