From a881e45eb59ac5fecf8ad1c51847f75506464494 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Sat, 31 Dec 2011 12:18:05 +0530
Subject: [PATCH] answers to 4.22 and 4.23

---
 src/sicp/ex4_22.rkt |  3 +++
 src/sicp/ex4_23.rkt | 15 +++++++++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 src/sicp/ex4_22.rkt
 create mode 100644 src/sicp/ex4_23.rkt

diff --git a/src/sicp/ex4_22.rkt b/src/sicp/ex4_22.rkt
new file mode 100644
index 0000000..a70ac41
--- /dev/null
+++ b/src/sicp/ex4_22.rkt
@@ -0,0 +1,3 @@
+#lang racket
+
+(analyze (let-combination exp))
diff --git a/src/sicp/ex4_23.rkt b/src/sicp/ex4_23.rkt
new file mode 100644
index 0000000..6913847
--- /dev/null
+++ b/src/sicp/ex4_23.rkt
@@ -0,0 +1,15 @@
+#lang racket
+
+;; The text version creates something like this
+
+(lambda (env)
+  (lambda (env)
+    (lambda (env)
+      (lambda (env)
+        (proc1 env)
+        (proc2 env))
+      (proc3 env))
+    (proc4 env)))
+
+;; where as Alyssa's version creates
+(lambda (env) (execute-sequence '(proc1 proc2 proc3 ...) env))
\ No newline at end of file
-- 
2.45.2