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

resume in dmux

Browse Source
This commit is contained in:
Matthew Butterick 2016-05-19 13:58:13 -07:00
parent 1e6407bd1a
commit 124c83d34e
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
beautiful-racket/br/demo/hdl/Mux.hdl.rkt
View File

@ -16,10 +16,8 @@ CHIP Mux {
OUT out; OUT out;
PARTS: PARTS:
Not(in=sel, out=sel-opposite); Not(in=sel, out=not-sel);
Not(in=a, out=not-a); And(a=a, b=not-sel, out=a-and-not-sel);
Or(a=not-a, b=sel-opposite, out=maybe-a); And(a=b, b=sel, out=b-and-sel);
Not(in=b, out=not-b); Or(a=a-and-not-sel, b=b-and-sel, out=out);
Or(a=not-b, b=sel, out=maybe-b);
Or(a=maybe-a, b=b, out=out);
} }

2
beautiful-racket/br/demo/hdl/expander.rkt
View File

@ -1,6 +1,6 @@
#lang br #lang br
(require "helper.rkt" (for-syntax racket/base racket/syntax "helper.rkt" racket/list racket/require-transform)) (require "helper.rkt" (for-syntax racket/base racket/syntax "helper.rkt" racket/list racket/require-transform))
(provide #%top-interaction (rename-out [mb #%module-begin]) #%app #%datum (all-defined-out)) (provide #%top-interaction (rename-out [mb #%module-begin]) #%app #%datum and or (all-defined-out))
(define #'(mb _arg ...) (define #'(mb _arg ...)
#'(#%module-begin #'(#%module-begin