           t (.-type exs)
 
           combiner
-          (if (= t :svalspath)
+          (if (= t :richpath)
             (fn [curr next]
               (fn [vals structure next-fn]
                 (curr vals structure


(deftype ExecutorFunctions [type select-executor transform-executor])

(def StructureValsPathExecutor
  (->ExecutorFunctions
    :svalspath
    (fn [selector structure]
      (selector [] structure
        (fn [vals structure]

        selector (:select* pimpl)
        transformer (:transform* pimpl)]
    (->TransformFunctions
      RichPathExecutor
      (fn [vals structure next-fn]
        (selector this structure (fn [structure] (next-fn vals structure))))
      (fn [vals structure next-fn]
