From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Mon, 2 Jan 2012 15:58:07 +0000 (+0530)
Subject: bug fix for 4.8. Should wrap with a begin.
X-Git-Url: https://git.rkrishnan.org/listings/FOOURL?a=commitdiff_plain;h=fa74e5afdb717d1432cbf463467d19780a3fdea0;p=sicp.git

bug fix for 4.8. Should wrap with a begin.
---

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))