new syntax

beautiful-racket/br/demo/hdl/bus.rkt

@@ -103,8 +103,8 @@ base bus:
 
 
 (define-macro-cases define-base-bus
-  [#'(_macro-name ID THUNK) #'(_macro-name ID THUNK default-bus-width)]
-  [#'(_macro-name ID THUNK _bus-width-in)
+  [(_macro-name ID THUNK) #'(_macro-name ID THUNK default-bus-width)]
+  [(_macro-name ID THUNK _bus-width-in)
    (with-pattern
     ([_id-thunk (suffix-id #'ID "-val")]
      [_bus-type (or (syntax-property caller-stx 'impersonate) #'bus)])
@@ -188,9 +188,9 @@ input bus:
 
 
 (define-macro-cases define-input-bus
-  [#'(_macro-name _id)
+  [(_macro-name _id)
    #'(_macro-name _id default-bus-width)]
-  [#'(_macro-name _id _bus-width)
+  [(_macro-name _id _bus-width)
    (syntax-property* #'(define-base-bus _id (λ () 0) _bus-width)
                      ['impersonate #'input-bus]
                      ['writer #t])])