1 665c255d 2023-08-04 jrmu (defun iterative-improve (good-enough? improve)
2 665c255d 2023-08-04 jrmu   (lambda (first-guess)
3 665c255d 2023-08-04 jrmu     (labels (
4 665c255d 2023-08-04 jrmu 	     (improve-iter (guess)
5 665c255d 2023-08-04 jrmu