    }
   )
 
-(defn find-first [pred coll] (first (filter pred coll)) )
+(defn find-first 
+  "Helper function returning (first (filter pred coll))"
+  [pred coll] 
+  (first (filter pred coll)) )
 
 (defn data-path
-  "Corrects actual internal path to account for the inclusion of vectors as data structures."
+  "Converts a conceptual data path to an associative path usable by get-in.
+  The abstract internal path may include vectors as data structures which
+  are instructions to look up items in a list by a key."
   [context]
   (let [state @(:app-state-atom context)
         path-seq (:scope context)

                                 (update-in-context context operation))
  )


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