"~" global var replaced by home word

contrib/jedit/jedit.factor

@@ -5,7 +5,7 @@ USING: arrays definitions errors io kernel listener math
 namespaces parser prettyprint sequences strings words shells ;
 
 : jedit-server-info ( -- port auth )
-    "~" get "/.jedit/server" path+ <file-reader> [
+    home "/.jedit/server" path+ <file-reader> [
         readln drop
         readln string>number
         readln string>number

library/bootstrap/init.factor

@@ -9,7 +9,6 @@ namespaces parser threads words ;
     cell \ cell set
     millis init-random
     init-io
-    "HOME" os-env [ "." ] unless* "~" set
     init-error-handler
     init-threads
     default-cli-args

library/cli.factor

@@ -6,12 +6,12 @@ parser sequences strings ;
 
 : run-bootstrap-init ( -- )
     "user-init" get [
-        "~" get "/.factor-boot-rc" append ?run-file
+        home ".factor-boot-rc" path+ ?run-file
     ] when ;
 
 : run-user-init ( -- )
     "user-init" get [
-        "~" get "/.factor-rc" append ?run-file
+        home ".factor-rc" path+ ?run-file
     ] when ;
 
 : cli-var-param ( name value -- ) swap set-global ;

library/io/files.factor

@@ -49,3 +49,6 @@ DEFER: directory.
 
 : directory. ( path -- )
     dup directory [ file. ] each-with ;
+
+: home ( -- dir )
+    windows? "USERPROFILE" "HOME" ? os-env [ "." ] unless* ;