From fd53321823d54733d6d5e4ff93893c406000dfe0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 23 Nov 2010 12:34:26 -0600
Subject: [PATCH] rackunit: bring back source locations for check-equal? used
 in 'ho' position

---
 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 f4bb83db56..75749047ac 100644
--- a/collects/rackunit/private/check.rkt
+++ b/collects/rackunit/private/check.rkt
@@ -171,7 +171,9 @@
                  (name
                   (identifier? #'name)
                   (syntax/loc stx
-                    check-secret-name)))))
+                    (λ (formal ...) (check-secret-name formal ... 
+                                                       #:location (quote loc) 
+                                                       #:expression (quote (name actual ...)))))))))
            ))))))
 
 (define-syntax define-simple-check