diff --git a/syndicate/pattern.rkt b/syndicate/pattern.rkt index e3783a6..52588ff 100644 --- a/syndicate/pattern.rkt +++ b/syndicate/pattern.rkt @@ -272,12 +272,6 @@ [(_ pat-stx) (analyse-pattern #'pat-stx)]))) -;; (provide :bindings) -;; (define-syntax (:bindings stx) -;; (syntax-case stx () -;; [(_ pat-stx) -;; #`(quote #,(analyse-pattern-bindings #'pat-stx))])) - (define-syntax (:template stx) (syntax-case stx () [(_ template-stx)