Merge pull request #124 from MichaelBlume/fix-arglists
fix arglist metadata
This commit is contained in:
commit
f23d687423
1 changed files with 5 additions and 1 deletions
|
|
@ -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]))
|
||||
|
|
|
|||
Loading…
Reference in a new issue