repl: Load user's initialization file.
* guix/scripts/repl.scm (guix-repl): Load user's initialization file.
This commit is contained in:
parent
6efccabe4e
commit
37c6f11f8d
|
@ -188,6 +188,11 @@ call THUNK."
|
||||||
(save-module-excursion
|
(save-module-excursion
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(set-current-module user-module)
|
(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.
|
;; Do not exit repl on SIGINT.
|
||||||
((@@ (ice-9 top-repl) call-with-sigint)
|
((@@ (ice-9 top-repl) call-with-sigint)
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
|
Loading…
Reference in New Issue