Skip to content

Commit 0449a12

Browse files
committed
Fix monad-test imports
1 parent f6758b5 commit 0449a12

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

src/std/monad-test.ss

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@
2222
((_ test-case: name rest ...)
2323
#'(test-case name (test-inline rest ...)))
2424
((_ > form > rest ...)
25-
#'(begin (when *test-versbose* (displayln "... " 'form)) form (test-inline > rest ...)))
25+
#'(begin (when std/test#*test-verbose* (displayln "... " 'form)) form (test-inline > rest ...)))
2626
((_ > test result rest ...)
2727
#'(begin (check test => 'result) (test-inline rest ...)))
2828
((_) #!void)))

src/std/monad/README.org

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1130,7 +1130,7 @@ This is after state in the train of thought so is defined here.
11301130
((_ test-case: name rest ...)
11311131
#'(test-case name (test-inline rest ...)))
11321132
((_ > form > rest ...)
1133-
#'(begin (when std/test#*test-versbose* (displayln "... " 'form)) form (test-inline > rest ...)))
1133+
#'(begin (when std/test#*test-verbose* (displayln "... " 'form)) form (test-inline > rest ...)))
11341134
((_ > test result rest ...)
11351135
#'(begin (check test => 'result) (test-inline rest ...)))
11361136
((_) #!void)))

0 commit comments

Comments
 (0)