suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new syntax

Browse Source
This commit is contained in:
Matthew Butterick 2016-08-10 15:54:21 -07:00
parent 9a1b621969
commit 066ea559cf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
beautiful-racket/br/demo/hdl/bus.rkt
View File

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