From 42d0dacb5b5d59439b3ba9571d89c69518801751 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 31 Aug 2016 11:49:47 -0700 Subject: [PATCH] fix `with-shared-id` --- beautiful-racket-lib/br/define.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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)))