remove `shared-syntax`

beautiful-racket-lib/br/define.rkt

@@ -43,9 +43,8 @@
 (begin-for-syntax
   ;; expose the caller context within br:define macros with syntax parameter
   (require (for-syntax racket/base) racket/stxparam)
-  (provide caller-stx shared-syntax)
+  (provide caller-stx)
-  (define-syntax-parameter caller-stx (λ(stx) (error 'caller-stx-not-parameterized)))
+  (define-syntax-parameter caller-stx (λ(stx) (error 'caller-stx-not-parameterized))))
-  (define-syntax-parameter shared-syntax (λ(stx) (error 'shared-syntax-not-parameterized))))
 
 
 (define-syntax (define-cases stx)
@@ -172,10 +171,9 @@
            (λ (stx)
              (define result
                (syntax-parameterize ([caller-stx (make-rename-transformer #'stx)])
-                 (syntax-parameterize ([shared-syntax (make-shared-syntax-macro caller-stx)])
+                 (syntax-case stx LITERALS
-                   (syntax-case stx LITERALS
                      [pat . result-exprs] ...
-                     else-clause))))
+                     else-clause)))
              (if (syntax? result)
                  result
                  (datum->syntax #'id result)))))]

beautiful-racket-lib/br/main.rkt

@@ -6,7 +6,7 @@
          (all-from-out racket/list racket/string racket/format racket/match racket/port
                        br/syntax br/datum br/debug br/cond racket/function br/define)
          (for-syntax (all-from-out racket/base racket/syntax br/syntax br/debug))
-         (for-syntax caller-stx shared-syntax with-shared-id with-calling-site-id)) ; from br/define
+         (for-syntax caller-stx with-shared-id with-calling-site-id)) ; from br/define
          
 
 ;; todo: activate at-exp reader by default