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

adjust

Browse Source
This commit is contained in:
Matthew Butterick 2016-05-09 14:29:38 -07:00
parent d9a33c7948
commit 5d73d41174
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
beautiful-racket-lib/br/syntax.rkt
View File

@ -145,4 +145,7 @@
(define-syntax (with-scopes stx) (define-syntax (with-scopes stx)
(syntax-case stx (syntax) (syntax-case stx (syntax)
[(_ (scope-id) (syntax expr)) [(_ (scope-id) (syntax expr))
#'(scope-id expr)])) (with-syntax ([add-scope-id (format-id #'scope-id "add-~a" #'scope-id)])
#'(add-scope-id expr))]))