adjust

9 years ago · 5d73d41174
parent d9a33c7948
commit 5d73d41174
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))]))
+
+