diff --git a/src/datomish/db.cljc b/src/datomish/db.cljc index 05d52a36..63de0db2 100644 --- a/src/datomish/db.cljc +++ b/src/datomish/db.cljc @@ -644,8 +644,11 @@ (->> (update-txInstant db*))))) (defn- lookup-ref? [x] + "Return true if `x` is like [:attr value]." (and (sequential? x) - (= (count x) 2))) + (= (count x) 2) + (or (keyword? (first x)) + (integer? (first x))))) (defn