From cd16f2992dc7d4a7486950bb632aac055c09d5c0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 19 May 2016 14:56:13 -0700 Subject: [PATCH] touchup --- beautiful-racket/br/demo/hdl/expander.rkt | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/beautiful-racket/br/demo/hdl/expander.rkt b/beautiful-racket/br/demo/hdl/expander.rkt index 81ab9b1..b88d6c0 100644 --- a/beautiful-racket/br/demo/hdl/expander.rkt +++ b/beautiful-racket/br/demo/hdl/expander.rkt @@ -16,16 +16,6 @@ (define-input-bus _input-pin _input-width ...) ... _part ...))) -#;(define #'(chip-program _chipname - (in-spec (_input-pin _input-width ...) ...) - (out-spec (_output-pin _output-width ...) ...) - (part-spec (part _partname ((_pin _pinwhich ...) (_val _valwhich ...)) ... ) ...)) - (with-syntax ([chip-prefix (format-id #'_chipname "~a-" #'_chipname)]) - #'(begin - (provide (prefix-out chip-prefix (combine-out _input-pin ... _output-pin ...))) - (define _input-pin (make-bus _input-width ...)) ... - (handle-part _partname (_pin (or #f _pinwhich ...) (_val (or #f _valwhich ...))) ...) ...))) - (define #'(part _prefix [_suffix _arg ...] ...) (with-syntax ([(prefix-suffix ...) (map (λ(s) (format-id s "~a-~a" #'_prefix s)) (syntax->list #'(_suffix ...)))]