From 5d73d4117495c7069945b75c2ee4f9a5eb28ddb4 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 9 May 2016 14:29:38 -0700 Subject: [PATCH] adjust --- beautiful-racket-lib/br/syntax.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/beautiful-racket-lib/br/syntax.rkt b/beautiful-racket-lib/br/syntax.rkt index baf64b5..3d4ad9e 100644 --- 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))])) + +