From c8ebec62e80a51653e5cb709eec46cb1a3ed7907 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Thu, 20 Aug 2015 15:20:51 -0500 Subject: [PATCH] fixed unbox-let optimization srcloc propigation --- typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt b/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt index 80d3d105..bb605919 100644 --- a/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt +++ b/typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt @@ -99,14 +99,15 @@ (define-syntax-class unboxed-clauses #:attributes (bindings) (pattern (clauses:unboxed-clause ...) - #:attr bindings (delay (template ((?@ . clauses.bindings) ...)))))] + #:attr bindings (delay (template ((?@ . clauses.bindings) ...))))) + (define top-stx this-syntax)] #:attr opt (syntax-parse #'(clause ...) [clauses:unboxed-clauses (delay (quasisyntax/loc/origin - this-syntax #'letk.kw + top-stx #'letk.kw (letk.key ... clauses.bindings body.opt ...)))])))