From f845ad0ee8891744e4eff13a6df92ff595641b05 Mon Sep 17 00:00:00 2001 From: Michael Ballantyne Date: Sun, 14 Jan 2024 13:48:24 -0500 Subject: [PATCH 1/2] a comment --- private/syntax/compile/binding-spec.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/private/syntax/compile/binding-spec.rkt b/private/syntax/compile/binding-spec.rkt index 8c39fc6..09f9bcf 100644 --- 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 ...)))])) From ed192743ab84b0f2062b44bd22de4ddcf7083125 Mon Sep 17 00:00:00 2001 From: Michael Ballantyne Date: Sun, 14 Jan 2024 13:50:20 -0500 Subject: [PATCH 2/2] add collection name to info.rkt --- info.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/info.rkt b/info.rkt index a3504f7..4d3c18d 100644 --- a/info.rkt +++ b/info.rkt @@ -1,6 +1,7 @@ #lang info (define name "syntax-spec") +(define collection "syntax-spec") (define version "0.1") (define deps '("base" "version-case"