From 37c6f11f8dfa1880db86a3510c9e50990304d76c Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Thu, 22 Nov 2018 17:24:04 +0300 Subject: 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 1a105f51ee..02169e8004 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 () -- cgit 1.4.1