From fdb4ab7025cff2d3cc6d42954fffc05d0cf19ad1 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 19 Apr 2012 12:48:07 -0400 Subject: [PATCH] Handle `check-expect' in non-application form. Closes PR 12710. --- collects/test-engine/racket-tests.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/test-engine/racket-tests.rkt b/collects/test-engine/racket-tests.rkt index 536177b6fa..a7732520da 100644 --- a/collects/test-engine/racket-tests.rkt +++ b/collects/test-engine/racket-tests.rkt @@ -140,7 +140,8 @@ (memq c '(module top-level)))) (define-for-syntax (argcount-error-message/stx arity stx [at-least #f]) - (argcount-error-message arity (sub1 (length (syntax->list stx))) at-least)) + (define ls (syntax->list stx)) + (argcount-error-message arity (if ls (sub1 (length ls)) 0) at-least)) ;; check-expect (define-syntax (check-expect stx)