fix `with-shared-id`

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)))