]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/io/files/info/windows/windows.factor
Remove Windows CE from core/ basis/ and build-support/
[factor.git] / basis / io / files / info / windows / windows.factor
index bf055f327b40f224f024235541c3f39a139780f0..417a2353c2331f2dd5ac6226874a4d7b3e768a4c 100755 (executable)
@@ -141,7 +141,7 @@ ERROR: not-absolute-path ;
 
 PRIVATE>
 
-M: winnt file-system-info ( path -- file-system-info )
+M: windows file-system-info ( path -- file-system-info )
     normalize-path root-directory (file-system-info) ;
 
 CONSTANT: names-buf-length 16384
@@ -174,7 +174,7 @@ CONSTANT: names-buf-length 16384
         ]
     ] [ '[ _ FindVolumeClose win32-error=0/f ] ] bi [ ] cleanup ;
 
-M: winnt file-systems ( -- array )
+M: windows file-systems ( -- array )
     find-volumes [ volume>paths ] map
     concat [
         [ (file-system-info) ]