From 267d2293c0d8e4b9037c6116ef59331e511b2e72 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 25 Nov 2010 11:11:27 -0500 Subject: [PATCH] Fixing error introduce by Robby in fd53321 --- collects/rackunit/private/check.rkt | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/collects/rackunit/private/check.rkt b/collects/rackunit/private/check.rkt index 75749047ac..3a059a4987 100644 --- a/collects/rackunit/private/check.rkt +++ b/collects/rackunit/private/check.rkt @@ -171,9 +171,15 @@ (name (identifier? #'name) (syntax/loc stx - (λ (formal ...) (check-secret-name formal ... - #:location (quote loc) - #:expression (quote (name actual ...))))))))) + (case-lambda + [(formal ...) + (check-secret-name formal ... + #:location (quote loc) + #:expression (quote (name actual ...)))] + [(formal ... msg) + (check-secret-name formal ... msg + #:location (quote loc) + #:expression (quote (name actual ...)))])))))) )))))) (define-syntax define-simple-check