luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix arglist metadata

Browse source
This commit is contained in:
Michael Blume 2016-05-21 13:26:06 -07:00
parent 8c0e88db43
commit 3265e4e14d
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/honeysql/helpers.clj
View file

@ -23,7 +23,11 @@
(build-clause ~kw m# args#))) (build-clause ~kw m# args#)))
;; maintain the original arglist instead of getting ;; maintain the original arglist instead of getting
;; ([& args__6880__auto__]) ;; ([& args__6880__auto__])
(alter-meta! assoc :arglists '(~arglist)))))) (alter-meta!
assoc
:arglists
'(~(into [] (rest arglist))
~(into [(first arglist)] (rest arglist))))))))
(defn collify [x] (defn collify [x]
(if (coll? x) x [x])) (if (coll? x) x [x]))