repl: Load user's initialization file.

* guix/scripts/repl.scm (guix-repl): Load user's initialization file.
2018-11-22 17:24:04 +03:00 · 2018-11-22 17:24:04 +03:00 · 37c6f11f8d
parent 6efccabe4e
commit 37c6f11f8d
1 changed files with 5 additions and 0 deletions
--- 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 ()