fix arglist metadata

2016-05-21 13:26:06 -07:00 · 2016-05-21 13:26:06 -07:00 · 3265e4e14d
commit 3265e4e14d
parent 8c0e88db43
1 changed files with 5 additions and 1 deletions
--- a/src/honeysql/helpers.clj
+++ b/src/honeysql/helpers.clj
@ -23,7 +23,11 @@
                 (build-clause ~kw m# args#)))
         ;; maintain the original arglist instead of getting
         ;; ([& args__6880__auto__])
-         (alter-meta! assoc :arglists '(~arglist))))))
+         (alter-meta!
+           assoc
+           :arglists
+           '(~(into [] (rest arglist))
+             ~(into [(first arglist)] (rest arglist))))))))

 (defn collify [x]
  (if (coll? x) x [x]))