sqrt in clojure which follows scheme style

sqrt.clj

(defn sqrt [x] 
  (defn fixed-point [f first-guess]
    (defn close-enough? [v1 v2] 
      (let [tolerance 0.000000001]
        (< (Math/abs (- v1 v2))
           tolerance)))
    (defn tryo [guess]
      (loop [oldo guess
             newo (f oldo)]
        (if (close-enough? oldo newo)
          newo
          (recur newo (f newo)))))
    (tryo first-guess))
  (fixed-point (fn [y] (/ (+ y (/ x y)) 2)) 1.0))