redo home implementation

basis/io/unix/files/files.factor

@@ -5,7 +5,8 @@ unix unix.stat unix.time kernel math continuations
 math.bitwise byte-arrays alien combinators calendar
 io.encodings.binary accessors sequences strings system
 io.files.private destructors vocabs.loader calendar.unix
-unix.stat alien.c-types arrays unix.users unix.groups ;
+unix.stat alien.c-types arrays unix.users unix.groups
+environment ;
 IN: io.unix.files
 
 M: unix cwd ( -- path )
@@ -294,3 +295,5 @@ M: string set-file-group ( path string -- )
 
 : file-group-name ( path -- string )
     file-group-id group-name ;
+
+M: unix home "HOME" os-env ;

basis/io/windows/nt/files/files.factor

@@ -1,7 +1,7 @@
 USING: continuations destructors io.buffers io.files io.backend
 io.timeouts io.ports io.windows io.windows.files
 io.windows.nt.backend windows windows.kernel32
-kernel libc math threads system
+kernel libc math threads system environment
 alien.c-types alien.arrays alien.strings sequences combinators
 combinators.short-circuit ascii splitting alien strings
 assocs namespaces make io.files.private accessors tr ;
@@ -59,3 +59,5 @@ M: winnt FileArgs-overlapped ( port -- overlapped )
 M: winnt open-append
     [ dup file-info size>> ] [ drop 0 ] recover
     >r (open-append) r> >>ptr ;
+
+M: winnt home "USERPROFILE" os-env ;

core/io/files/files.factor

@@ -332,10 +332,6 @@ C: <pathname> pathname
 M: pathname <=> [ string>> ] compare ;
 
 ! Home directory
-HOOK: home os ( -- dir )
+HOOK: home io-backend ( -- dir )
 
-M: winnt home "USERPROFILE" os-env ;
-
-M: wince home "" resource-path ;
-
-M: unix home "HOME" os-env ;
+M: object home "" resource-path ;