diff --git a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl index 28da502f9d..4955c8e819 100644 --- a/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl +++ b/pkgs/racket-doc/scribblings/reference/stx-trans.scrbl @@ -822,7 +822,12 @@ applied to each before passing them to @racket[syntax-local-lift-require]. Otherwise, marks added 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?]) void?]{ diff --git a/racket/src/expander/expand/syntax-local.rkt b/racket/src/expander/expand/syntax-local.rkt index 6e0ac7807d..c2ab51a80c 100644 --- a/racket/src/expander/expand/syntax-local.rkt +++ b/racket/src/expander/expand/syntax-local.rkt @@ -281,7 +281,7 @@ (values ctx post-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) (do-local-lift-to-module who (datum->syntax #f s) diff --git a/racket/src/expander/syntax/scope.rkt b/racket/src/expander/syntax/scope.rkt index a9c5bdea9e..ec45edfd61 100644 --- a/racket/src/expander/syntax/scope.rkt +++ b/racket/src/expander/syntax/scope.rkt @@ -72,7 +72,7 @@ ;; generally not share a most-recent scope. (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" #:authentic ;; Custom printer: diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 3b9b845979..39a8ea0aab 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -42653,7 +42653,7 @@ static const char *startup_source = " 'syntax-local-lift-require" "(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(((who118_0) 'syntax-local-lift-require)" "((temp119_0)(datum->syntax$1 #f s_333))"