fix `with-shared-id`

8 years ago · 42d0dacb5b
parent e2df4fee70
commit 42d0dacb5b
1 changed files with 1 additions and 3 deletions
--- 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)
+    (with-syntax ([id (datum->syntax caller-stx 'id)] ...)
                                                    (syntax-e id)
                                                    id))] ...)
      . body)))