Solutions to 4.27, 4.28 and 4.29.

[sicp.git] / src / sicp / ex4_8.rkt

diff --git a/src/sicp/ex4_8.rkt b/src/sicp/ex4_8.rkt
index d58eb4dd28aa8b325f8218b5d8360fcdd9967f6e..68a84ad457b69ed46c269a32ce1fa3bf2b502b4b 100644 (file)
--- a/src/sicp/ex4_8.rkt
+++ b/src/sicp/ex4_8.rkt
@@ -1,6 +1,6 @@
 #lang racket
 
-(provide let->combination)
+(provide let->combination let?)
 
 (define (tagged-list? exp tag)
   (if (pair? exp)
@@ -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))