branch master updated: pull: Create the "${XDG_CONFIG_HOME}/guix" directory when needed.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

iyzsong pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 5207c5e  pull: Create the "${XDG_CONFIG_HOME}/guix" directory when 
needed.
5207c5e is described below

commit 5207c5eb55282464a4732fe8b7df40b406ef38a3
Author: 宋文武 <iyzsong@member.fsf.org>
AuthorDate: Fri Feb 12 20:48:20 2021 +0800

    pull: Create the "${XDG_CONFIG_HOME}/guix" directory when needed.
    
    This fixes <https://bugs.gnu.org/46269>.
    
    * guix/scripts/pull.scm (ensure-default-profile): Add a 'mkdir-p' call 
before
    'symlink'.
---
 guix/scripts/pull.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 4e0ab5d..13d5ece 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -39,7 +39,7 @@
                                 close-inferior)
   #:use-module (guix scripts build)
   #:use-module (guix scripts describe)
-  #:autoload   (guix build utils) (which)
+  #:autoload   (guix build utils) (which mkdir-p)
   #:use-module ((guix build syscalls)
                 #:select (with-file-lock/no-wait))
   #:use-module (guix git)
@@ -521,6 +521,7 @@ true, display what would be built without actually building 
it."
       (catch 'system-error
         (lambda ()
           (false-if-exception (delete-file link))
+          (mkdir-p (dirname link))
           (symlink %current-profile link))
         (lambda args
           (leave (G_ "while creating symlink '~a': ~a~%")