suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Handle `check-expect' in non-application form.

Browse Source 
Closes PR 12710.
This commit is contained in:
Sam Tobin-Hochstadt 2012-04-19 12:48:07 -04:00
parent f27c023247
commit fdb4ab7025
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/test-engine/racket-tests.rkt
View File

@ -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)