Chapter 3, Modularity, Objects, and State
1 2 3 4 5 6 7 8 9 (define (or-gate a1 a2 output) (let ((na1 (make-wire)) (na2 (make-wire)) (nout (make-wire))) (inverter a1 na1) (inverter a2 na2) (and-gate na1 na2 nout) (inverter nout output)) 'ok)
Note that here it is not required to call
and-gate already takes care of that.
The delay would ofcourse = 3 inverter delays + 1 and-gate delay.