scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initialize CWD on startup.

This commit is contained in:
mainzelm 2001-09-12 14:29:03 +00:00
parent ebd33706cc
commit f3e567e997
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/startup.scm
View File

@ -49,7 +49,8 @@
(lambda () (lambda ()
(with-autoreaping (with-autoreaping
(lambda () (lambda ()
(install-env) (install-env)
(initialize-cwd)
(init-scsh-vars #f) ; Do it quietly. (init-scsh-vars #f) ; Do it quietly.
(start args)))))) (start args))))))
filename)) filename))

2
scsh/top.scm
View File

@ -240,7 +240,7 @@
(with-autoreaping (with-autoreaping
(lambda () (lambda ()
(install-env) (install-env)
(initialize-cwd)
;; Have to do these before calling DO-SWITCHES, because actions ;; Have to do these before calling DO-SWITCHES, because actions
;; performed while processing the switches may use these guys. ;; performed while processing the switches may use these guys.
(set-command-line-args! (set-command-line-args!