From 37c6f11f8dfa1880db86a3510c9e50990304d76c Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <go.wigust@gmail.com>
Date: Thu, 22 Nov 2018 17:24:04 +0300
Subject: [PATCH] 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 1a105f51ee5..02169e80042 100644
--- a/guix/scripts/repl.scm
+++ b/guix/scripts/repl.scm
@@ -188,6 +188,11 @@ (define opts
(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 ()
--
GitLab