src/sicp/ex4_52.rkt

   1 #lang racket
   2
   3 ;; if-fail
   4
   5 (define (analyze-if-fail expr)
   6   (let ([sproc (analyze (if-fail-success expr))]
   7         [fproc (analyze (if-fail-failure expr))])
   8     (lambda (env succeed fail)
   9       (sproc env
  10              succeed
  11              (lambda ()
  12                (fexpr env succeed fail))))))