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

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

Browse Source
This commit is contained in:
Jay McCarthy 2013-01-25 07:34:08 -07:00
parent 74429db650
commit 3a69fb9191
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/lang/anormal.rkt
View File

@ -140,7 +140,7 @@
[(#%variable-reference . v) [(#%variable-reference . v)
(ctxt stx)] (ctxt stx)]
[id (identifier? #'id) [id (identifier? #'id)
(ctxt #'id)] (ctxt stx)]
[(letrec-syntaxes+values ([(sv ...) se] ...) [(letrec-syntaxes+values ([(sv ...) se] ...)
([(vv ...) ve] ...) ([(vv ...) ve] ...)
be ...) be ...)

2
collects/web-server/lang/elim-letrec.rkt
View File

@ -103,7 +103,7 @@
[id (identifier? #'id) [id (identifier? #'id)
(if (bound-identifier-member? #'id ids) (if (bound-identifier-member? #'id ids)
(syntax/loc stx (#%plain-app unbox id)) (syntax/loc stx (#%plain-app unbox id))
#'id)] stx)]
[(letrec-syntaxes+values ([(sv ...) se] ...) [(letrec-syntaxes+values ([(sv ...) se] ...)
([(vv ...) ve] ...) ([(vv ...) ve] ...)
be ...) be ...)