From: nomennescio <nomennescio@factorcode.org>
Date: Wed, 13 Jul 2022 11:32:14 +0000 (+0200)
Subject: On Windows support HOME environment variable
X-Git-Tag: 0.99~1319
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=4ae4164a85eb1c1e8c6a7cb726027127481f2769

On Windows support HOME environment variable

HOMEPATH and HOMEDRIVE might be set automatically, and HOME can be used to override.
Also HOME is used by several ported commandline utilities to find configuration files.
If the user has set it, he clearly prefers it.
---

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 233a9119ed..a708dfee81 100644
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -379,6 +379,7 @@ M: windows open-append
 
 M: windows home
     {
+        [ "HOME" os-env ]
         [ "HOMEDRIVE" os-env "HOMEPATH" os-env append-path ]
         [ "USERPROFILE" os-env ]
         [ my-documents ]