From fa74e5afdb717d1432cbf463467d19780a3fdea0 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Mon, 2 Jan 2012 21:28:07 +0530
Subject: [PATCH] bug fix for 4.8. Should wrap with a begin.

---
 src/sicp/ex4_8.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/sicp/ex4_8.rkt b/src/sicp/ex4_8.rkt
index 1647aea..68a84ad 100644
--- a/src/sicp/ex4_8.rkt
+++ b/src/sicp/ex4_8.rkt
@@ -45,7 +45,8 @@
           [body (let-body expr)])
       (if (not (let-name expr))
           (cons (make-lambda vars body) vals)
-          (list (list 'define (let-name expr) (make-lambda vars body))
+          (list 'begin 
+                (list 'define (let-name expr) (make-lambda vars body))
                 (list (let-name expr) vals))))))
 
 (define ns (make-base-namespace))
-- 
2.45.2