Don't call install-env when initializing scsh because this is already
done by a reinitializer in scsh.scm.
This commit is contained in:
parent
8f1dfb6935
commit
4540ad4589
|
@ -298,12 +298,14 @@
|
||||||
name))
|
name))
|
||||||
|
|
||||||
(define (with-scsh-initialized interactive? context args thunk)
|
(define (with-scsh-initialized interactive? context args thunk)
|
||||||
(with-scsh-sighandlers
|
(with-scsh-sighandlers
|
||||||
interactive?
|
interactive?
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(with-autoreaping
|
(with-autoreaping
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(install-env)
|
;; environment is already installed by a resumer
|
||||||
|
;; c.f. env-reinitializer in scsh.scm
|
||||||
|
;; (install-env)
|
||||||
(initialize-cwd)
|
(initialize-cwd)
|
||||||
(init-scsh-vars interactive?)
|
(init-scsh-vars interactive?)
|
||||||
(start-new-session context
|
(start-new-session context
|
||||||
|
@ -356,7 +358,7 @@
|
||||||
(restart-command-processor
|
(restart-command-processor
|
||||||
args
|
args
|
||||||
context
|
context
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(display (string-append
|
(display (string-append
|
||||||
"Welcome to scsh "
|
"Welcome to scsh "
|
||||||
scsh-version-string
|
scsh-version-string
|
||||||
|
|
Loading…
Reference in New Issue