     (str "{" (str-join ", " entries) "}")))
 
 (defn add-one-binding-note [expect-containing-form ordered-binding-map]
-  (transform expect-containing-form
-  	  loc-is-at-full-expect-form?
-  	  (fn [loc] (skip-to-rightmost-leaf
-             (add-key-value-within-arrow-branch__then__at_arrow :binding-note (binding-note ordered-binding-map) loc)))))
+  (translate expect-containing-form
+    loc-is-at-full-expect-form?
+    (fn [loc] (skip-to-rightmost-leaf
+      (add-key-value-within-arrow-branch__then__at_arrow :binding-note (binding-note ordered-binding-map) loc)))))
 
 (defn add-binding-notes [expect-containing-forms ordered-binding-maps]
   (map (partial apply add-one-binding-note) 

        [midje.util.form-utils :only (pairs)])
  (:require [clojure.zip :as zip]))

;; Translating a form into an equivalent form with all arrow sequences given
;; line numbers. 

(defn add-line-numbers [form]
  (loop [loc (zip/seq-zip form)]
    (if (zip/end? loc)
      (zip/root loc)
      (recur (zip/next (cond (namespacey-match all-arrows loc)
                             (add-line-number-to-end-of-arrow-sequence__then__no-movement
                               (arrow-line-number loc) loc)
                             
                             :else loc))))))



;; Translating sweet forms into their semi-sweet equivalent


    is-semi-sweet-keyword?
    skip-to-rightmost-leaf))

(declare midjcoexpand)

