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

Indent

Browse Source
This commit is contained in:
Jay McCarthy 2016-04-06 10:09:16 -04:00
parent cf70c4a241
commit e4c0b75cae
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
racket/collects/racket/private/stxparam.rkt
View File

@ -13,26 +13,26 @@
[(_ ([id val] ...) body ...)
(let ([ids (syntax->list #'(id ...))])
(with-syntax ([((gen-id must-be-renamer?) ...)
(map (lambda (id)
(unless (identifier? id)
(raise-syntax-error
#f
"not an identifier"
stx
id))
(let ([sp (syntax-parameter-local-value id)])
(unless (syntax-parameter? sp)
(raise-syntax-error
#f
"not bound as a syntax parameter"
stx
id))
(list
(syntax-local-get-shadower
(syntax-local-introduce (syntax-parameter-target sp))
#t)
(rename-transformer-parameter? sp))))
ids)])
(map (lambda (id)
(unless (identifier? id)
(raise-syntax-error
#f
"not an identifier"
stx
id))
(let ([sp (syntax-parameter-local-value id)])
(unless (syntax-parameter? sp)
(raise-syntax-error
#f
"not bound as a syntax parameter"
stx
id))
(list
(syntax-local-get-shadower
(syntax-local-introduce (syntax-parameter-target sp))
#t)
(rename-transformer-parameter? sp))))
ids)])
(let ([dup (check-duplicate-identifier ids)])
(when dup
(raise-syntax-error