                     (if index
                       (conj real-path vector-key index)
                       (do
-                        (cljs.pprint/pprint "ERROR: NO ITEM FOUND AT DATA PATH ")
+                        (.log js/console "ERROR: NO ITEM FOUND AT DATA PATH ")
                         (cljs.pprint/pprint path-seq)
                         real-path
                         )

   }
  )

(defn find-first [pred coll] (first (filter pred coll)) )

(defn data-path
  "Corrects actual internal path to account for the inclusion of vectors as data structures."
  [context]
  (let [state @(:app-state-atom context)
        path-seq (:scope context)

                                 (update-in-context context operation))
  )

(defn context-op-builder 
  "Creates an application-state operation builder based on the given 
  context. In other words: returns a function that takes
  a function that can evolve the context data. This function, when called,
  returns a function that can do that operation in the larger context
  of the application state."
  [context] 
  (fn [op & triggers] (path-operator context op triggers)))
