Adjust the test for exec-path-list.

This commit is contained in:
mainzelm 2002-05-10 07:24:37 +00:00
parent cdd0b40057
commit 73092cb733
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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))