From fa74e5afdb717d1432cbf463467d19780a3fdea0 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan 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.37.2