01/01: repl: Load user's initialization file.

[guix-commits]

wigust pushed a commit to branch master
in repository guix.

commit 37c6f11f8dfa1880db86a3510c9e50990304d76c
Author: Oleg Pykhalov <address@hidden>
Date:   Thu Nov 22 17:24:04 2018 +0300

    repl: Load user's initialization file.
    
    * guix/scripts/repl.scm (guix-repl): Load user's initialization file.
---
 guix/scripts/repl.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/scripts/repl.scm b/guix/scripts/repl.scm
index 1a105f5..02169e8 100644
--- a/guix/scripts/repl.scm
+++ b/guix/scripts/repl.scm
@@ -188,6 +188,11 @@ call THUNK."
              (save-module-excursion
               (lambda ()
                 (set-current-module user-module)
+                (and=> (getenv "HOME")
+                       (lambda (home)
+                         (let ((guile (string-append home "/.guile")))
+                           (when (file-exists? guile)
+                             (load guile)))))
                 ;; Do not exit repl on SIGINT.
                 ((@@ (ice-9 top-repl) call-with-sigint)
                  (lambda ()