Correct printing of test procedures

2018-05-02 18:20:33 +01:00 · 2018-05-02 18:20:33 +01:00 · bc5b28c403
parent e4a1a6e075
commit bc5b28c403
1 changed files with 1 additions and 1 deletions
--- a/syndicate/test-implementation.rkt
+++ b/syndicate/test-implementation.rkt
@ -187,7 +187,7 @@
                                  (color NORMAL)))
      (let ((description
             (match maybe-check
-               [(? procedure?) (format "~a" check)]
+               [(? procedure?) (format "~a" maybe-check)]
               [(check #f description _thunk) (format "~a" description)]
               [(check check-loc description _thunk) (format "~a (~a)" description check-loc)])))
        (match result