Adjust the test for exec-path-list.
This commit is contained in:
parent
cdd0b40057
commit
73092cb733
|
@ -181,7 +181,7 @@
|
||||||
; checks if exec-path-list is a string-list
|
; checks if exec-path-list is a string-list
|
||||||
; OK 2001-04-09 15:45
|
; OK 2001-04-09 15:45
|
||||||
(define (exec-path-list-test)
|
(define (exec-path-list-test)
|
||||||
(string-list? (fluid exec-path-list)))
|
(string-list? (thread-fluid exec-path-list)))
|
||||||
|
|
||||||
|
|
||||||
; OK 2001-04-09 15:45
|
; OK 2001-04-09 15:45
|
||||||
|
|
|
@ -43,7 +43,7 @@
|
||||||
add-after-test)
|
add-after-test)
|
||||||
(open scsh
|
(open scsh
|
||||||
scheme
|
scheme
|
||||||
fluids
|
thread-fluids
|
||||||
list-lib
|
list-lib
|
||||||
string-lib)
|
string-lib)
|
||||||
(files env-test-code))
|
(files env-test-code))
|
||||||
|
|
Loading…
Reference in New Issue