implementation, ctd

(define (rotate-left! b)
(set-car! b (cdr b))
(set-cdr! b (cddr b)))

(define (rotate-right! b)
(set-cdr! b (car b))
(set-car! b (prev (car b))))

Previous slide

Next slide

Back to first slide

View graphic version