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

Make syntax-local-lift-require not affect syntax-original?-ness

Browse Source
This commit is contained in:
Alexis King 2018-04-25 10:52:14 -05:00
parent b87793640b
commit e2ef7cdd5c
4 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-doc/scribblings/reference/stx-trans.scrbl
View File

@ -822,7 +822,12 @@ applied to each before passing them to
@racket[syntax-local-lift-require]. Otherwise, marks added @racket[syntax-local-lift-require]. Otherwise, marks added
by the macro expander can prevent access to the new imports. by the macro expander can prevent access to the new imports.
@transform-time[]} @transform-time[]
@history[#:changed "6.90.0.27" @elem{Changed the @tech{scope} added to inputs from a
macro-introduction scope to one that does not affect whether or
not the resulting syntax is considered original as reported by
@racket[syntax-original?].}]}
@defproc[(syntax-local-lift-provide [raw-provide-spec-stx syntax?]) @defproc[(syntax-local-lift-provide [raw-provide-spec-stx syntax?])
void?]{ void?]{

2
racket/src/expander/expand/syntax-local.rkt
View File

@ -281,7 +281,7 @@
(values ctx post-s)) (values ctx post-s))
(define/who (syntax-local-lift-require s use-s) (define/who (syntax-local-lift-require s use-s)
(define sc (new-scope 'macro)) (define sc (new-scope 'lifted-require))
(define-values (ctx added-s) (define-values (ctx added-s)
(do-local-lift-to-module who (do-local-lift-to-module who
(datum->syntax #f s) (datum->syntax #f s)

2
racket/src/expander/syntax/scope.rkt
View File

@ -72,7 +72,7 @@
;; generally not share a most-recent scope. ;; generally not share a most-recent scope.
(struct scope (id ; internal scope identity; used for sorting (struct scope (id ; internal scope identity; used for sorting
kind ; debug info kind ; 'macro for macro-introduction scopes, otherwise treated as debug info
[binding-table #:mutable]) ; see "binding-table.rkt" [binding-table #:mutable]) ; see "binding-table.rkt"
#:authentic #:authentic
;; Custom printer: ;; Custom printer:

2
racket/src/racket/src/startup.inc
View File

@ -42653,7 +42653,7 @@ static const char *startup_source =
" 'syntax-local-lift-require" " 'syntax-local-lift-require"
"(let-values()" "(let-values()"
"(let-values()" "(let-values()"
"(let-values(((sc_33)(new-scope 'macro)))" "(let-values(((sc_33)(new-scope 'lifted-require)))"
"(let-values(((ctx_59 added-s_1)" "(let-values(((ctx_59 added-s_1)"
"(let-values(((who118_0) 'syntax-local-lift-require)" "(let-values(((who118_0) 'syntax-local-lift-require)"
"((temp119_0)(datum->syntax$1 #f s_333))" "((temp119_0)(datum->syntax$1 #f s_333))"