Support: Label Lookup

(define *labels* '())

(define (add-label name procedure)
  (set! *labels* (cons (list name procedure) *labels*)))

(define (find-label name)
  (let ((entry (assq name *labels*)))
    (and entry (second entry))))

Jim Miller