From: Ramakrishnan Muthukrishnan 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/about.html?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))