From 066ea559cf6fe1b4aec57d1f750306f2040ac7e6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 10 Aug 2016 15:54:21 -0700 Subject: [PATCH] new syntax --- beautiful-racket/br/demo/hdl/bus.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/beautiful-racket/br/demo/hdl/bus.rkt b/beautiful-racket/br/demo/hdl/bus.rkt index 2882ee8..3c02126 100644 --- a/beautiful-racket/br/demo/hdl/bus.rkt +++ b/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])])