adjust

2016-05-09 14:29:38 -07:00 · 2016-05-09 14:29:38 -07:00 · 5d73d41174
commit 5d73d41174
parent d9a33c7948
1 changed files with 4 additions and 1 deletions
--- a/beautiful-racket-lib/br/syntax.rkt
+++ b/beautiful-racket-lib/br/syntax.rkt
@ -145,4 +145,7 @@
 (define-syntax (with-scopes stx)
  (syntax-case stx (syntax)
    [(_ (scope-id) (syntax expr))
-     #'(scope-id expr)]))
+     (with-syntax ([add-scope-id (format-id #'scope-id "add-~a" #'scope-id)])
+       #'(add-scope-id expr))]))
+
+