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

fix with-shared-id

Browse Source
This commit is contained in:
Matthew Butterick 2016-08-31 11:49:47 -07:00
parent e2df4fee70
commit 42d0dacb5b
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
beautiful-racket-lib/br/define.rkt
View File

@ -119,9 +119,7 @@
(begin-for-syntax (begin-for-syntax
(define-syntax-rule (with-shared-id (id ...) . body) (define-syntax-rule (with-shared-id (id ...) . body)
(with-syntax ([id (datum->syntax caller-stx (if (syntax? id) (with-syntax ([id (datum->syntax caller-stx 'id)] ...)
(syntax-e id)
id))] ...)
. body))) . body)))