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

adjust syntax-set to use syntax-local-identifier-as-binding

Browse Source
This commit is contained in:
Matthew Flatt 2015-03-08 16:04:25 -06:00
parent 746e8ff1fb
commit f540a6c108
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compatibility-lib/mzlib/private/stxset.rkt
View File

@ -69,12 +69,16 @@
[def-ids (apply append (map (lambda (defn) [def-ids (apply append (map (lambda (defn)
(syntax-case defn () (syntax-case defn ()
[(_ (id ...) expr) [(_ (id ...) expr)
(syntax->list (syntax (id ...)))])) (map
syntax-local-identifier-as-binding
(syntax->list (syntax (id ...))))]))
defns))] defns))]
[val-ids (apply append (map (lambda (defn) [val-ids (apply append (map (lambda (defn)
(syntax-case defn (define-values) (syntax-case defn (define-values)
[(define-values (id ...) expr) [(define-values (id ...) expr)
(syntax->list (syntax (id ...)))] (map
syntax-local-identifier-as-binding
(syntax->list (syntax (id ...))))]
[_else null])) [_else null]))
defns))]) defns))])
(let ([dup (check-duplicate-identifier def-ids)]) (let ([dup (check-duplicate-identifier def-ids)])