merge from main

michaelballantyne · Jan 14, 2024 · 095aa99 · 095aa99
2 parents 24711b4 + ed19274
commit 095aa99
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/info.rkt b/info.rkt
@@ -2,6 +2,7 @@
 
 (define name "syntax-spec-v1")
 (define version "1.0")
+(define collection "syntax-spec-v1")
 (define deps '("base"
                "version-case"
                "ee-lib"

diff --git a/private/syntax/compile/binding-spec.rkt b/private/syntax/compile/binding-spec.rkt
@@ -493,6 +493,7 @@
                                   #`(subexp '#,v #,pass1-expander))]
                    [(s-cp2 ...) (for/list ([pv pvars])
                                   (match-define (pvar v (nonterm-rep (two-pass-nonterm-info _ pass2-expander))) pv)
+                                  ;; avoid adding the local-scopes to syntax moved in by first pass expansion
                                   #`(subexp/no-scope '#,v #,pass2-expander))])
        #`(group (list s-cp1 ... s-cp2 ...)))]
     [(or (s* export) (s* export-syntax) (s* export-syntaxes))
@@ -565,5 +566,6 @@
     [(re-export _ pvars)
      (with-syntax ([(s-c ...) (for/list ([pv pvars])
                                 (match-define (pvar v (nonterm-rep (two-pass-nonterm-info _ pass2-expander))) pv)
+                                ;; avoid adding the local-scopes to syntax moved in by first pass expansion
                                 #`(subexp/no-scope '#,v #,pass2-expander))])
        #`(group (list s-c ...)))]))