Core$.scheme
Copyright
Ó 1989 by Xerox Corporation. All rights reserved.
Barth, May 9, 1989 5:33:33 pm PDT
(define (wire-visit wire each-wire)
(define size (wire-size wire))
(do ((i 0 (+ i 1)))
((= i size))
(each-wire (wire-child wire i))
)
)