Fix monad-test imports

mighty-gerbils · Aug 31, 2024 · 0449a12 · 0449a12
1 parent f6758b5
commit 0449a12
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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)))