1 665c255d 2023-08-04 jrmu (define (ripple-carry-adder A B S C)
2 665c255d 2023-08-04 jrmu   (let ((c-in (make-wire)))
3 665c255d 2023-08-04 jrmu     (if (null? (cdr A))
4 665c255d 2023-08-04 jrmu 	(set-signal! c-in 0)
5 665c255d 2023-08-04 jrmu 	(ripple-carry-adder (cdr A) (cdr B) (cdr S) c-in))
6 665c255d 2023-08-04 jrmu     (full-adder (car A) (car B) c-in (car S) C)))