Correct printing of test procedures
This commit is contained in:
parent
e4a1a6e075
commit
bc5b28c403
|
@ -187,7 +187,7 @@
|
||||||
(color NORMAL)))
|
(color NORMAL)))
|
||||||
(let ((description
|
(let ((description
|
||||||
(match maybe-check
|
(match maybe-check
|
||||||
[(? procedure?) (format "~a" check)]
|
[(? procedure?) (format "~a" maybe-check)]
|
||||||
[(check #f description _thunk) (format "~a" description)]
|
[(check #f description _thunk) (format "~a" description)]
|
||||||
[(check check-loc description _thunk) (format "~a (~a)" description check-loc)])))
|
[(check check-loc description _thunk) (format "~a (~a)" description check-loc)])))
|
||||||
(match result
|
(match result
|
||||||
|
|
Loading…
Reference in New Issue