Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv20939/scsh
Modified Files:
scsh-package.scm scsh.scm
Log Message:
EXEC-PATH-LIST is now a fluid.
Index: scsh-package.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh-package.scm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** scsh-package.scm 2001/01/09 15:52:52 1.15
--- scsh-package.scm 2001/03/11 18:58:54 1.16
***************
*** 185,189 ****
string-lib
! loopholes ; For my bogus CALL-TERMINALLY implementation.
scheme
--- 185,190 ----
string-lib
! fluids ; For exec-path-list
! loopholes ; For my bogus CALL-TERMINALLY implementation.
scheme
***************
*** 452,454 ****
threads) ; sleep
(files dot-locking))
-
\ No newline at end of file
--- 453,454 ----
Index: scsh.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh.scm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** scsh.scm 2000/12/22 14:13:17 1.11
--- scsh.scm 2001/03/11 18:58:54 1.12
***************
*** 814,818 ****
;(define (exec-path/env prog env . arglist)
! ; (cond ((exec-path-search (stringify prog) exec-path-list) =>
; (lambda (binary)
; (apply exec/env binary env arglist)))
--- 814,818 ----
;(define (exec-path/env prog env . arglist)
! ; (cond ((exec-path-search (stringify prog) (fluid exec-path-list)) =>
; (lambda (binary)
; (apply exec/env binary env arglist)))
***************
*** 838,842 ****
(let ((binary (string-append dir "/" prog)))
(%%exec/errno binary argv env)))
! exec-path-list))))
(error "No executable found." prog arglist))))
--- 838,842 ----
(let ((binary (string-append dir "/" prog)))
(%%exec/errno binary argv env)))
! (fluid exec-path-list)))))
(error "No executable found." prog arglist))))
***************
*** 903,907 ****
;;; Some globals:
(define home-directory "")
! (define exec-path-list '())
(define (init-scsh-vars quietly?)
--- 903,907 ----
;;; Some globals:
(define home-directory "")
! (define exec-path-list (make-fluid '()))
(define (init-scsh-vars quietly?)
***************
*** 911,919 ****
(warn "Starting up with no home directory ($HOME)."))
"/")))
! (set! exec-path-list
! (cond ((getenv "PATH") => split-colon-list)
! (else (if (not quietly?)
! (warn "Starting up with no path ($PATH)."))
! '()))))
--- 911,919 ----
(warn "Starting up with no home directory ($HOME)."))
"/")))
! (set-fluid! exec-path-list
! (cond ((getenv "PATH") => split-colon-list)
! (else (if (not quietly?)
! (warn "Starting up with no path ($PATH)."))
! '()))))
|