 (defn prepare-schema [schema]
   (-> (mapv make-part (concat (:partitions subject)
                               (:partitions schema)))
-      (into (mapv make-attr (concat (:attributes subject)
+      (into (map make-attr (concat (:attributes subject)
                                     (:attributes schema))))
-      (into (mapv make-func (:functions subject)))
+      (into (map make-enum (:enums subject)))
+      (into (map make-func (:functions subject)))
       (into (:functions schema))))
 
 (defn load-base-schema

     :db/valueType :db.type/ref
     :db/cardinality :db.cardinality/one
     :db/doc "The sex of a subject."}]

   :functions
   [(func :add-subject

      (assoc :db.install/_attribute :db.part/db)))

(defn make-enum
  "Assocs :db/id to the enum."
  [enum]
  (assoc-tempid {:db/ident enum} :db.part/user))

