greg/mentat
1
0
Fork 0
Code Issues 294 Pull requests Projects Releases 9 Packages Wiki Activity

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

Browse source
This commit is contained in:
Nick Alexander 2016-08-04 14:45:41 -07:00
parent 44db8116bf
commit 5ece60e3e9
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/datomish/db.cljc
View file

@ -644,8 +644,11 @@
(->> (update-txInstant db*))))) (->> (update-txInstant db*)))))
(defn- lookup-ref? [x] (defn- lookup-ref? [x]
"Return true if `x` is like [:attr value]."
(and (sequential? x) (and (sequential? x)
(= (count x) 2))) (= (count x) 2)
(or (keyword? (first x))
(integer? (first x)))))
(defn <?run (defn <?run
"Execute the provided query on the provided DB. "Execute the provided query on the provided DB.