Suppress 'and' clause in keyword catch clause.

[jbouwman]

When only one keyword matching argument is present, it's not necessary to generate an 'and' container. There's no harm either, but linters such as 'eastwood' may complain.

Example:

(defn fun []
  (try+
   (something)
   (catch [:key :something] {}
     (recover))))

Macroexpansion before:

...
(contains? &throw-context :catch-hook-rethrow) (throw+)
(let [% (:object &throw-context)]
  (and (= (get % :key) :something))) (let
                                       [{}

After:

...
(contains? &throw-context :catch-hook-rethrow) (throw+)
(let [% (:object &throw-context)]
  (= (get % :key) :something)) (let
                                 [{}

[scgilardi]

Looks good, thank you! Can you please make a pull request into the master branch rather than the release branch? (There's an open feature request to allow editing this aspect of an open pull request, but it's not yet implemented.)

[jbouwman]

Sure! I'll open a new one.