Implementing OOPS

(define (analyze-oops exp)
  ;; (OOPS <name>)
  (let ((name (second exp)))
    (lambda (env)
      (let ((label (find-label name)))
	(if label
	    (label)
	    (error "No handler for error" name))))))

Jim Miller