diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2018-11-22 17:24:04 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2018-12-03 08:04:51 +0300 |
| commit | 37c6f11f8dfa1880db86a3510c9e50990304d76c (patch) | |
| tree | b221445899a9e5b375645751e66fa17b72b2f853 /guix/scripts | |
| parent | 6efccabe4e2e3ea1bd14cd0e81bdb83d5f6baaea (diff) | |
| download | gnu-guix-37c6f11f8dfa1880db86a3510c9e50990304d76c.tar gnu-guix-37c6f11f8dfa1880db86a3510c9e50990304d76c.tar.gz | |
repl: Load user's initialization file.
* guix/scripts/repl.scm (guix-repl): Load user's initialization file.
Diffstat (limited to 'guix/scripts')
| -rw-r--r-- | guix/scripts/repl.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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 () |