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

Quote typecheck-fail-internal properly.

Browse Source 
Caught by existing unit tests.
This commit is contained in:
Sam Tobin-Hochstadt 2015-07-20 15:34:49 -04:00
parent 1842aaa2bd
commit fca96dcdc1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
typed-racket-lib/typed-racket/base-env/prims.rkt
View File

@ -770,13 +770,13 @@ the typed racket language.
(define-syntax (typecheck-fail stx)
(syntax-parse stx
[(_ orig msg:str #:covered-id var:id)
#'(quote (typecheck-fail-internal orig msg var))]
#'(quote-syntax (typecheck-fail-internal orig msg var) #:local)]
[(_ orig msg:str)
#'(quote (typecheck-fail-internal orig msg #f))]
#'(quote-syntax (typecheck-fail-internal orig msg #f) #:local)]
[(_ orig #:covered-id var:id)
#'(quote (typecheck-fail-internal orig "Incomplete case coverage" var))]
#'(quote-syntax (typecheck-fail-internal orig "Incomplete case coverage" var) #:local)]
[(_ orig)
#'(quote(typecheck-fail-internal orig "Incomplete case coverage" #f))]))
#'(quote-syntax (typecheck-fail-internal orig "Incomplete case coverage" #f) #:local)]))
(define-syntax (base-for/vector stx)
(syntax-case stx ()