From 13c2e444a8d53dcd42d8e49be369a240adb95337 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 25 Apr 2008 00:59:44 -0500
Subject: [PATCH] normalize-path on windows file monitor

---
 extra/io/monitors/monitors.factor            | 2 +-
 extra/io/windows/nt/monitors/monitors.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/io/monitors/monitors.factor b/extra/io/monitors/monitors.factor
index fb404f24f5..863c8fc95c 100755
--- a/extra/io/monitors/monitors.factor
+++ b/extra/io/monitors/monitors.factor
@@ -39,7 +39,7 @@ M: monitor set-timeout (>>timeout) ;
 HOOK: (monitor) io-backend ( path recursive? mailbox -- monitor )
 
 : <monitor> ( path recursive? -- monitor )
-    >r normalize-path r> <mailbox> (monitor) ;
+    <mailbox> (monitor) ;
 
 : next-change ( monitor -- path changed )
     [ queue>> ] [ timeout ] bi mailbox-get-timeout first2 ;
diff --git a/extra/io/windows/nt/monitors/monitors.factor b/extra/io/windows/nt/monitors/monitors.factor
index 4c2277acb9..2397d207b9 100755
--- a/extra/io/windows/nt/monitors/monitors.factor
+++ b/extra/io/windows/nt/monitors/monitors.factor
@@ -98,7 +98,7 @@ TUPLE: win32-monitor < monitor port ;
 
 M:: winnt (monitor) ( path recursive? mailbox -- monitor )
     [
-        path mailbox win32-monitor new-monitor
+        path normalize-path mailbox win32-monitor new-monitor
             path open-directory \ win32-monitor-port <buffered-port>
                 recursive? >>recursive
             >>port