Merge pull request #56 from plexus/model-check-record

Change model? to check for records

src/toucan/models.clj

@@ -378,9 +378,11 @@
   ([model k v & more]
    (apply (resolve 'toucan.db/select-one) model k v more)))
 
-(def ^:const ^{:arglists '([model])} ^Boolean model?
+(defn model?
   "Is model a valid toucan model?"
-  ::model)
+  [model]
+  (and (record? model)
+       (::model model)))
 
 ;; We use the same record type (e.g., `DatabaseInstance`) for both the "model" (e.g., `Database`) and objects fetched
 ;; from the DB ("instances"). Model definitions have the key `::model` assoced so we can differentiate.