From 02b1d4dfa40e60ef272326488f1727e32b198b3a Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 10 Jun 2008 09:43:55 -0500
Subject: [PATCH] io.windows.nt.files: minor update

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

diff --git a/extra/io/windows/nt/files/files.factor b/extra/io/windows/nt/files/files.factor
index 67161716a3..e8bdd8e4ec 100755
--- a/extra/io/windows/nt/files/files.factor
+++ b/extra/io/windows/nt/files/files.factor
@@ -23,7 +23,7 @@ M: winnt root-directory? ( path -- ? )
         { [ dup empty? ] [ f ] }
         { [ dup [ path-separator? ] all? ] [ t ] }
         { [ dup right-trim-separators
-          { [ dup length 2 = ] [ dup second CHAR: : = ] } && nip ] [
+          { [ dup length 2 = ] [ dup second CHAR: : = ] } 0&& nip ] [
             t
         ] }
         [ f ]
@@ -36,7 +36,7 @@ ERROR: not-absolute-path ;
         [ dup length 2 >= ]
         [ dup second CHAR: : = ]
         [ dup first Letter? ]
-    } && [ 2 head ] [ not-absolute-path ] if ;
+    } 0&& [ 2 head ] [ not-absolute-path ] if ;
 
 : prepend-prefix ( string -- string' )
     dup unicode-prefix head? [