だんだん辛くなってきました。
ググりながらやってます

(define (square x) (* x x))
(define (sum-of-squares x y)
  (+ (square x) (square y)))



(define (new-if predicate then-clause else-clause)
  (cond (predicate then-clause)
        (else else-clause)))



(define (improve guess x)
  (average guess (/ x guess)))



(define (average x y)
  (/ (+ x y) 2))



(define (good-enough? guess x)
  (< (abs (- (square guess) x)) 0.001))



(define (sqrt x)
  (sqrt-iter 1.0 x))



;(new-if (= 2 3) 0 5)
;(new-if (= 1 1) 0 5)



(define (sqrt-iter guess x)
  (new-if (good-enough? guess x)
      guess
      (sqrt-iter (improve guess x)
                  x)))



(sqrt 9)
;引数をすべて評価してしまうので
;無限ループに陥る
;「特殊形式ifの評価規則は、解釈系が正規順序と作用的順序のどちらを使うかに無関係に同じとする。述語式を最初に評価し、その結果が帰結式と代替式のいずれを評価するかを決める。」(p.12)