From 906ddb7fbf6b20272d2e34c9a2c6ac853dba14c7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Sep 2012 11:19:20 -0600
Subject: [PATCH] Windows: avoid Unix-specific test

---
 collects/tests/racket/file.rktl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/racket/file.rktl b/collects/tests/racket/file.rktl
index d560891774..cc6d69cc36 100644
--- a/collects/tests/racket/file.rktl
+++ b/collects/tests/racket/file.rktl
@@ -1532,7 +1532,7 @@
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Check that `in-directory' fails properly on filesystem errors
 
-(let ()
+(unless (eq? 'windows (system-type))
   (define tmp (build-path (build-path (find-system-path 'temp-dir))
                           (format "in-dir-tmp-dir~a" (random 1000))))
   (define sub (build-path tmp "sub"))