Managing Local State

(define make-light (lambda ()

(let ((color 'red))

(lambda (msg)

(case msg

(show color)

(change

(if (eq? color 'red) (set! color 'green)

(set! color 'red)))

(else (writeln �Message not known�))))))

Previous slide

Next slide

Back to first slide

View graphic version