From 3a69fb91916316f2ad0206b4592b1851b782fae6 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 25 Jan 2013 07:34:08 -0700 Subject: [PATCH] Preserve exact stx obj for identifiers (and thus preserve properties like protected) --- collects/web-server/lang/anormal.rkt | 2 +- collects/web-server/lang/elim-letrec.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/lang/anormal.rkt b/collects/web-server/lang/anormal.rkt index 4cac18aa45..8139a6e658 100644 --- a/collects/web-server/lang/anormal.rkt +++ b/collects/web-server/lang/anormal.rkt @@ -140,7 +140,7 @@ [(#%variable-reference . v) (ctxt stx)] [id (identifier? #'id) - (ctxt #'id)] + (ctxt stx)] [(letrec-syntaxes+values ([(sv ...) se] ...) ([(vv ...) ve] ...) be ...) diff --git a/collects/web-server/lang/elim-letrec.rkt b/collects/web-server/lang/elim-letrec.rkt index f169babf03..e5c89b50de 100644 --- a/collects/web-server/lang/elim-letrec.rkt +++ b/collects/web-server/lang/elim-letrec.rkt @@ -103,7 +103,7 @@ [id (identifier? #'id) (if (bound-identifier-member? #'id ids) (syntax/loc stx (#%plain-app unbox id)) - #'id)] + stx)] [(letrec-syntaxes+values ([(sv ...) se] ...) ([(vv ...) ve] ...) be ...)