Preserve exact stx obj for identifiers (and thus preserve properties like protected)

2013-01-25 07:34:08 -07:00 · 2013-01-25 07:34:08 -07:00 · 3a69fb9191
commit 3a69fb9191
parent 74429db650
2 changed files with 2 additions and 2 deletions
--- 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 ...)
--- 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 ...)