          (macroexpand extension)))))
 
 (def or-choice
-  '(deftranslator :new
+  `(deftranslator :new
      [[:choice [:A] [:B]]]))
 
 (deftest choiche-test

  `[:selector])

(def extension
  '(deftranslator :new base
     [:selector2]))

(deftest extension-test

                  {:_action :new,
                   :target-key (clojure.core/->
                                (featured-gml.xml/xml1-> zp :targetKey featured-gml.xml/text)
                                featured-gml.code/moment)})))
         (macroexpand function-append)))))
