diff --git a/beautiful-racket-lib/br/define.rkt b/beautiful-racket-lib/br/define.rkt index 9bbc61f..e0c7e09 100644 --- a/beautiful-racket-lib/br/define.rkt +++ b/beautiful-racket-lib/br/define.rkt @@ -119,9 +119,7 @@ (begin-for-syntax (define-syntax-rule (with-shared-id (id ...) . body) - (with-syntax ([id (datum->syntax caller-stx (if (syntax? id) - (syntax-e id) - id))] ...) + (with-syntax ([id (datum->syntax caller-stx 'id)] ...) . body)))