projects
/
sicp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
871a4a8
)
bug fix for 4.8. Should wrap with a begin.
author
Ramakrishnan Muthukrishnan
<vu3rdd@gmail.com>
Mon, 2 Jan 2012 15:58:07 +0000
(21:28 +0530)
committer
Ramakrishnan Muthukrishnan
<vu3rdd@gmail.com>
Mon, 2 Jan 2012 16:00:50 +0000
(21:30 +0530)
src/sicp/ex4_8.rkt
patch
|
blob
|
history
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))