 
 
 (defn make-map [f1 f2 coll]
-  (apply hash-map (flatten (map (fn [val] [(f1 val) (f2 val)]) coll))))
+  (apply hash-map (apply concat (map (fn [val] [(f1 val) (f2 val)]) coll))))
 
 (defn prop [uri]
   (if uri

        (doseq [onlooker onlookers] ;;end end-children
          (url-index model onlooker (+ index 1)))))))

(defn generics [model node parent-context parent-children local-part] ;;end end-children
  (let [local-context (build-context model parent-context node)

        local-context (if parent-children (merge-context local-part local-context) local-context)

        context (merge parent-context local-context)

        thing (println "\n\n1: " parent-context "\n\n2: " local-context "\n\n3: " context)

        ;; children (doall (relate-right model (prop (bind :child)) node))
        children
        (map #(generics model % parent-context nil nil)
             (rdf-seq model (get parent-context (bind :children)))) ;;TODO holy shit I'm here

        children (if parent-children (concat parent-children children) children)

        base (res (first (get-property model node (prop (bind :base)))))



:view rdfs:subClassOf :component .




