src/sicp/ex4_23.rkt

   1 #lang racket
   2
   3 ;; The text version creates something like this
   4
   5 (lambda (env)
   6   (lambda (env)
   7     (lambda (env)
   8       (lambda (env)
   9         (proc1 env)
  10         (proc2 env))
  11       (proc3 env))
  12     (proc4 env)))
  13
  14 ;; where as Alyssa's version creates
  15 (lambda (env) (execute-sequence '(proc1 proc2 proc3 ...) env))