[Scsh-checkins] CVS: scsh-0.6/scsh startup.scm,1.11,1.12 top.scm,1.14,1.15

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv15184/scsh

Modified Files:
        startup.scm top.scm 
Log Message:
Initialize CWD on startup.


Index: startup.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/startup.scm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** startup.scm 2001/04/09 08:05:58     1.11
--- startup.scm 2001/09/12 14:29:03     1.12
***************
*** 50,54 ****
                                 (with-autoreaping
                                  (lambda ()
!                                   (install-env)        
                                    (init-scsh-vars #f) ; Do it quietly.
                                    (start args))))))
--- 50,55 ----
                                 (with-autoreaping
                                  (lambda ()
!                                   (install-env)
!                                   (initialize-cwd)
                                    (init-scsh-vars #f) ; Do it quietly.
                                    (start args))))))

Index: top.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/top.scm,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** top.scm     2001/04/09 08:05:58     1.14
--- top.scm     2001/09/12 14:29:03     1.15
***************
*** 241,245 ****
             (lambda ()
               (install-env)
! 
         ;; Have to do these before calling DO-SWITCHES, because actions
         ;; performed while processing the switches may use these guys.
--- 241,245 ----
             (lambda ()
               (install-env)
!              (initialize-cwd)
         ;; Have to do these before calling DO-SWITCHES, because actions
         ;; performed while processing the switches may use these guys.