From 1e99d29be49c3f38c94f6672a8cd72c9ba4bd841 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Wed, 16 Sep 2015 15:10:42 +0200 Subject: [PATCH] Used new #:context variant (list symbol stx) for the error messages for , as per samth's suggestion. --- typed-racket-lib/typed-racket/base-env/prims.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typed-racket-lib/typed-racket/base-env/prims.rkt b/typed-racket-lib/typed-racket/base-env/prims.rkt index 5c32096d..155c0ebb 100644 --- a/typed-racket-lib/typed-racket/base-env/prims.rkt +++ b/typed-racket-lib/typed-racket/base-env/prims.rkt @@ -203,7 +203,7 @@ the typed racket language. (let ([mk (lambda (form) (lambda (stx) (syntax-parse stx - #:context (datum->syntax stx `(,form) stx stx) + #:context (list (syntax-e form) stx) [(_ (bs:optionally-annotated-binding ...) . body) (quasisyntax/loc stx (#,form (bs.binding ...) . body))])))]) (values (mk #'let) (mk #'let*) (mk #'letrec))))