diff --git a/scsh/top.scm b/scsh/top.scm index 4610216..3982df4 100644 --- a/scsh/top.scm +++ b/scsh/top.scm @@ -298,12 +298,14 @@ name)) (define (with-scsh-initialized interactive? context args thunk) - (with-scsh-sighandlers + (with-scsh-sighandlers interactive? (lambda () (with-autoreaping (lambda () - (install-env) + ;; environment is already installed by a resumer + ;; c.f. env-reinitializer in scsh.scm + ;; (install-env) (initialize-cwd) (init-scsh-vars interactive?) (start-new-session context @@ -356,7 +358,7 @@ (restart-command-processor args context - (lambda () + (lambda () (display (string-append "Welcome to scsh " scsh-version-string