Review comment: be more strict in lookup-ref?.

2016-08-04 14:45:41 -07:00 · 2016-08-04 14:45:41 -07:00 · 5ece60e3e9
parent 44db8116bf
commit 5ece60e3e9
1 changed files with 4 additions and 1 deletions
--- 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 <?run
  "Execute the provided query on the provided DB.