From 0449a12061a4511d01e67c0da8373d5a1a87ba4d Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Sat, 31 Aug 2024 13:03:40 -0700 Subject: [PATCH] Fix monad-test imports --- src/std/monad-test.ss | 2 +- src/std/monad/README.org | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/std/monad-test.ss b/src/std/monad-test.ss index 9b05717a7..69274e2bc 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-verbose* (displayln "... " 'form)) form (test-inline > rest ...))) ((_ > test result rest ...) #'(begin (check test => 'result) (test-inline rest ...))) ((_) #!void))) diff --git a/src/std/monad/README.org b/src/std/monad/README.org index 1c2395206..e5c4e585d 100644 --- a/src/std/monad/README.org +++ b/src/std/monad/README.org @@ -1130,7 +1130,7 @@ This is after state in the train of thought so is defined here. ((_ test-case: name rest ...) #'(test-case name (test-inline rest ...))) ((_ > form > rest ...) - #'(begin (when std/test#*test-versbose* (displayln "... " 'form)) form (test-inline > rest ...))) + #'(begin (when std/test#*test-verbose* (displayln "... " 'form)) form (test-inline > rest ...))) ((_ > test result rest ...) #'(begin (check test => 'result) (test-inline rest ...))) ((_) #!void)))