rewrite `quote->cons' using `match'.

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

diff --git a/src/sicp/ex4_8.rkt b/src/sicp/ex4_8.rkt
index 1647aea266d386159dcc35094098a5b94f6b7877..68a84ad457b69ed46c269a32ce1fa3bf2b502b4b 100644 (file)
--- 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))