From f7a6c4a3b674dcf76aada4f07fea6ef249d83fd9 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 6 Oct 2011 15:08:53 -0600 Subject: [PATCH] rackunit: all checks return void closes PR 12001 --- collects/rackunit/private/check.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/rackunit/private/check.rkt b/collects/rackunit/private/check.rkt index 6d40468af0..fc3e723d09 100644 --- a/collects/rackunit/private/check.rkt +++ b/collects/rackunit/private/check.rkt @@ -119,7 +119,9 @@ (if message (list (make-check-message message)) null)) - (lambda () (begin expr ...)))))))] + (lambda () (begin expr ...))))) + ;; All checks should return (void). + (void)))] [check-secret-name (datum->syntax stx (gensym (syntax->datum (syntax name))))]) (syntax/loc stx (begin