Error out when an attribute could not be interned when transacting.

This commit is contained in:
Richard Newman 2016-08-23 09:46:00 -07:00
parent 7d63c2185d
commit 893f944596

View file

@ -115,6 +115,9 @@
v (if (ds/kw? (db/schema db) a) ;; TODO: decide if this is best. We could also check for ref and numeric types.
v
(db/entid db v))]
(when-not (integer? a)
(raise "Unknown attribute " a
{:form orig :attribute a}))
[op e a v tx]))
(defrecord Transaction [db tempids entities])