From 4221f2c963a6b5e029ea83743a33a86dfb7209fc Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 Oct 2008 17:46:51 -0500
Subject: [PATCH] the windows file-system-info now works on any path, not just
 directories

---
 basis/io/windows/files/files.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/io/windows/files/files.factor b/basis/io/windows/files/files.factor
index be8d131158..e4fe0fbc63 100644
--- a/basis/io/windows/files/files.factor
+++ b/basis/io/windows/files/files.factor
@@ -251,6 +251,7 @@ total-bytes total-free-bytes ;
 
 M: winnt file-system-info ( path -- file-system-info )
     normalize-path
+    dup file-info directory? [ parent-directory ] unless
     "ULARGE_INTEGER" <c-object>
     "ULARGE_INTEGER" <c-object>
     "ULARGE_INTEGER" <c-object>