sheme вычисление квадратного корня

[Programming4Life]

начал sicp

(define (try-sqrt guess x)
	(if (guess? guess x)
		guess
	(try-sqrt (improve guess x) x)))

(define (guess? guess x)
	(if(< (module (- x guess)) 0.2)
		#t #f))
	
(define (module x)
	(if (> x 0)
		x
	(- x)))
	
(define(improve guess x)
	(/ (+ (/ x guess) guess) 2))

по отдельности improve, guess?, module работают нормально, при вызове try-sqrt видимо происходит зацикливание. в чем ошибка не пойму
=====================================
заметил ошибку, предикат неверный был, забыл guess в квадрат возвести

(define (guess? guess x)
	(if(< (module (- x (* guess guess))) 0.2)
		#t #f))

[hahashi]

меня в sicp хватило на первые три главы потом пошел ад с какими то фигурами и их преобразованиями
его я пропустил
ну и алгоритм хаффмана стоил того чтобы его пощупать
потом я забил =)

[dontsm1le]

Такая же фигня. Дропнул на средине 3-ей главы, т.к. мозг начал перегреваться.