[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: repl: Load user's initialization file.
From: |
guix-commits |
Subject: |
01/01: repl: Load user's initialization file. |
Date: |
Mon, 3 Dec 2018 00:05:55 -0500 (EST) |
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 ()