diff --git a/src/std/monad-test.ss b/src/std/monad-test.ss index 9b05717a7..ef7330930 100644 --- a/src/std/monad-test.ss +++ b/src/std/monad-test.ss @@ -22,7 +22,7 @@ ((_ test-case: name rest ...) #'(test-case name (test-inline rest ...))) ((_ > form > rest ...) - #'(begin (when *test-versbose* (displayln "... " 'form)) form (test-inline > rest ...))) + #'(begin (when std/test#*test-versbose* (displayln "... " 'form)) form (test-inline > rest ...))) ((_ > test result rest ...) #'(begin (check test => 'result) (test-inline rest ...))) ((_) #!void)))