From f540a6c108097674c0ac106a1ed68b501fa23f67 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 8 Mar 2015 16:04:25 -0600 Subject: [PATCH] adjust `syntax-set` to use `syntax-local-identifier-as-binding` --- compatibility-lib/mzlib/private/stxset.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/compatibility-lib/mzlib/private/stxset.rkt b/compatibility-lib/mzlib/private/stxset.rkt index 123cf7b..7e01ef8 100644 --- a/compatibility-lib/mzlib/private/stxset.rkt +++ b/compatibility-lib/mzlib/private/stxset.rkt @@ -69,12 +69,16 @@ [def-ids (apply append (map (lambda (defn) (syntax-case defn () [(_ (id ...) expr) - (syntax->list (syntax (id ...)))])) + (map + syntax-local-identifier-as-binding + (syntax->list (syntax (id ...))))])) defns))] [val-ids (apply append (map (lambda (defn) (syntax-case defn (define-values) [(define-values (id ...) expr) - (syntax->list (syntax (id ...)))] + (map + syntax-local-identifier-as-binding + (syntax->list (syntax (id ...))))] [_else null])) defns))]) (let ([dup (check-duplicate-identifier def-ids)])