About the code of exercise 6.34 in page 226, I think it should be
(define fib/anf
(lambda (n)
(if (< n 2)
n
(let ((val1 (fib/anf (- n 1)))
(val2 (fib/anf (- n 2))))
(+ val1 val2)))))
instead of
(define fib/anf
(lambda (n)
(if (< n 2)
1
(let ((val1 (fib/anf (- n 1)))
(val2 (fib/anf (- n 2))))
(+ val1 val2)))))
About the code of exercise 6.34 in page 226, I think it should be
instead of