fixing typo in handling of TEST_VERBOSE env var

This commit is contained in:
Alex Shinn 2017-01-23 22:10:48 +09:00
parent 63cea7ccb5
commit d1eaf80ce8

View file

@ -726,7 +726,7 @@
(define current-test-verbosity
(make-parameter
(cond ((get-environment-variable "TEST_VERBOSE")
=> (lambda (s) (not (member s "" "0"))))
=> (lambda (s) (not (member s '("" "0")))))
(else #f))))
(define current-test-epsilon (make-parameter 1e-5))
(define current-test-comparator (make-parameter test-equal?))