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